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Black System a l'honneur de 
vous présenter SHOOT. Ce jeu, 
entièrement en langage 
machine, est composé 
de trois fichiers. 


— SHOOT .BAS, le Loader Basic, 
— SHOOT1 .BIN, les dessins et 
— SHOOT2 .BIN, le programme 


Le fichier DATASI1.BAS crée le fi- 
chier binaire SHOOT1.BIN. Le fichier 


LOU ARR ER EERUARUNEEN 
20 ' #4 #à 
30 ' *# SHOOT #à 
40 ' #4 44 
50 * ## Luc and Herve Guillaume ## 
60 ' #1 Black System 1990 CE 
70 ! ## ## 
80 ? HANHMEMMMUUNNNNNEEEUUEENNÉEAAREES 
80 ? 


100 MEHORY 19999 

110 LOAD"!SHOOT1.BIN", 20000 
120 LOAD"!SHO0T2.BIN", 30000 
130 CALL 30000 
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Luc & Hervé GUILLAUME 


Valable pour CPC 464, CPC 664 
et CPC 6128 


DATAS2.BAS crée le fichier binaire 
SHOOT2.BIN, lorsqu'ils sont lancés par 
RUN. 


Pour commencer la partie, appuyez 
sur FIRE. La pause s'obtient par l'intermé- 
diaire de la touche RETURN. L'abandon 
s'effectue par la touche ESC. Le joystick 
est obligatoire. 


Voici les positions de la manette pour 
tirer dans les trois directions : 


Tout droit 
Vous devez effectuer neuf tirs aux ns. nd 

buts. Pour marquer, vous pouvez soit tirer LS À \ / 
à gauche soit à droite. Vous avez aussi | \ ss 
la possibilité de tirer tout droit mais vous 
ne tromperez personne. 1 I c 

HA 10" DATAS 1 

LB 20 ? DATAS pour SHOCTI.BIiN 

?LC 30 

>LD 40 MODE 2:AD=&CO00:NL=110 

LE 50 FOR B=1 TO 298:T0T-0:FOR T=0 TO 14:READ A$ 

>LF 60 POKE AD, VAL{"&"+A$):TOT=TOT+PEEK(AD) : AD=ADri 

>LG T0 NEXT:READ SOM$:1F VAL("&"+S0H$)<>TOT THEN 90 

>LH 80 NL=NL+10:NEXT:SAVE"SHOOTi.BIN",B, &CO0O, &i 1GE : CLS : END 

oLJ 80 CLS:LOCATE 1, {:PRINT"LIGNE" ;NL; "INCORRECTE" : END 

LT 100 ? 

dE 110 DATA 00,00, 00, 00,00, 00, 00, 00,00, 00,00, 00, 00, 00,00, 000 


120 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00,51,00, 11,00,41,0A3 
130 DATA 00,00,51,00,51,00,54,00,54,00,11,00, 11,00,00, 16C 
140 DATA O0,11,00,F3, 2,26, A2, 2À, 26,86, ZA, 88, 88,98,88,5A4 
150 DATA CC,88,00,00,51,00,F3,00, 14,00, 15,00, 44,00,64, 369 
160 DATA 26,CC,88,00,00,F3, A2, 28, A2, 00,26, CC, 2A, 88,00,579 
170 DATA 98,88,CC,88,00,00,F3, 42,28, A2, 00,28, 44, 2A, 00,569 
180 DATA 88,98, 88,CC, 88,00, 00, A2, 00, 28, O0, 2A, A2,88,28,542 
190 DATA CC, 2A,30,88, 00,88, 00,00,F3, A2, 28,28, 2À, 00,6E, 4B3 
200 DATA 86,00,86,98,86,CC, 88, 0G,00,F3, A2, A2, 28, 28,00, 60B 
210 DATA 6E,886,88,88,98,88,CC, 88,00, 00,F3, A2, 28, A2, 00, 6D9 
220 DATA 26,00, 24, 00,86, 00, 88, 00,88, 00, 00,F3, A2, 28, A2, 449 
230 DATA 2A,28,CC,2A,88,88,98,88,CC, 88,00, 00,F3, A2, 28, 689 
240 DATA A2,2À,28,CC, ZA, 00, 88,98, 88, CC, 88, 00, 00, 00, 00, 4E6 
250 DATA 00,00, 00,00, 00,00, 00, 00, 00, 00,00, 00, 00, 00, 00, 000 
260 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
270 DATA 90,AA,55,08, AE, OA, OD, A2, AE, 0A,55, 08, 00, AA, 00, 42D 
280 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
290 DATA 00,00,00,00, 2A, 00, 88,00, 20, 00, 00,00, 2A, 00,88, 184 
300 DATA 00,20, 00,00,00, 00, 00, 00, 00, 00, 00,00, 00, 00, 00, 020 
310 DATA 00,00,C0,C0,00, 00, 00,00, 00, 00, 00,00, 00,00, 00, 180 
320 DATA 00,00,00,C0,C0,F3, A2, AB, A2, AG, A8, 22, AB, 33,22, 6CE 
330 DATA 63,22,22,22,00,00,F3, A2, A2, A2, AB, AB, B9, 00, 22, 5CD 
340 DATA 22,22, 22,33,22,00,00,F3, A2, A2, A2, A2, 00, AB, 00, 4DE 
350 DATA AB,82,63,22,33,22,00,00,F3,00, A2, A2, AB, A2, AB, 62D 





360 DATA AB, 22, A8, 63, 22, 33, 82, 00, 00, F3, A2, A2, 00, A8, 00, 58B 
370 DATA FC,00,22, 00.63.62, 33, 2, 00.00,F3, A2, A2, 00, 48,597 
380 DATA 00,E9, 00, 33,00, 22, 00, 22, 00, 00, 00, F3, A2, A2, A2, 439 
390 DATA AB,00, AB, AB, 22, AB,63, 22, 33, 22, 00, 00, A2, A2, AB, 588 
400 DATA A2, AB, AB, 33, AB, 22, 22, 22, 22, 22, 22, 00,00, F3, 2,52 

410 DATA 51,00,54, 00,54, 00, 11,00, 93, 82, 33, 22, 00, 00,51, 2C5 
420 DATA A2, 00, A2, 00, AB, 00, AB, 00, 22,63, 22, 32, 22, 00, 00, 390 
430 DATA A2, A2, AB, A2, AB, AB, 33,00, 63, 22, 22, 29, 2, 22,00, 54E 
440 DATA 00, A2, OÙ, AË, UU, AB, OU, AB, OU, 22, OU, 64, 42, 33, 22, 3F0 
450 DATA 00,00, A2, A2,F9, A2, AB, AB, 22, AB, 22, 22, 22, 22, 27,53 
460 DATA 22,00, 00,F3, A2, AB, A2, AB, A8, 22, A8, 22,22, 22,22, 53 
470 DATA 22, 22, 00,00,F3, A2, AB, A2, AB, AB, 22, AB, 22, 22,63, SE4 
480 DATA 22,33, 22,00, 00, F3, A2, AB, A2, AB, AB, 22, AB, 33, 22, 5C5 
490 DATA 22,00, 22, 00, 00, 00, F3, A2, AB, A2, AB, AB, 22, AB,63, SAO 
500 DATA 22,33, 22,93, 82, 00, 00, F3, A2, AB, A2, AB, AB, 22, AB, 685 
510 DATA 33,00,63, 22, 22, 22,00,00,F3, A2, A2, A2, AB, 00, B9, 536 
520 DATA 22,00, 22,63, 22, 33, 22, 00,00, F3, A2,51, 00, 54, 00, 358 
530 DATA 54,00,11,00, 11,00, 11,00, 00, 00, A2, A2, AB, A2, AB, 3BD 
540 DATA A8, 22, AB, 22, 22,63, 22, 33, 22, 00, 00, A2, A2, AB, A2, 54E 
550 DATA AB, AB, 22, AB,63, 22, 11,00, 11,00, 00,00, A2, A2, AB, 4AD 
560 DATA A2, AB, AB, 22, AB, 63, 22, 33, 22, 22, 22,00, 00, A2, A2,51E 
570 DATA AB, A2, AB, AB, 11, 00,63, 22, 22, 22, 22, 22, 00, 00, A2, 45A 
580 DATA A2, AB, A2, AB, AB, 63, AB, 33, 22, 11,00, 11,00, 00, 00, 4BE 
590 DATA F3, A2, A2, AB, 00, A8, 11,00, 22, 00,63, 22, 33, 22, 00, 494 
600 DATA 00,00,FF,FF,FF,00,55, AA,FF, 00, 00,FF,FF, AA, 00, 7A3 
610 DATA 55,FF,FF,00,00,FF,FF,AA,55,F1,F2,F1,00, AE, 08, DA 
620 DATA OC, AA,55,0C, 0C, 5D, 00, AE, 0C, OC, AA, 55, 0C, OC, 5D, 3BA 
630 DATA 51,0F,0C, D, 00, 0D, OA. OF, 08, 04, 0F, OF, 0E, 00, OD, OE4 
640 DATA OF,0F,08,04,0F,0F, 0E, 50, A7, FF, AE, 00, 0F, AO, OF, 3B8 
650 DATA 0A,05,5A, A5, 0F,00,0F, FO, A5, 04, 05, SA, F0, 0F, 05, 42E 
660 DATA F1,00,55,00,5A, A2, 5A, A0,05,F1, A7, F0, 00,5A,F1, 714 
670 DATA FO,40,05,F0,F2,F0,04,0F,F1,00,00,F1,F3, FO, A2, 8EL 
680 DATA 50,F3,50,F1,00,F1, A0, F1, A2, 00,50,F2, 00,55, 0C, 74B 
690 DATA 5A,A2,00,F3,F2,F1,A2,51,F2,50,F3,00, F3, AO, F3, 980 
700 DATA A2,00,54,F2,00,00,FF,58,F3,00,F3,A5, F3, A2,51, 7AD 
710 DATA F2,51,F3,00,F3, A0,F3, 0,00, 51,F2,00, 00, 00, AF, 74E 
720 DATA F1,00,F3,A6,F3, 0,51,F2,51,F2,00, F3, AO, F2, A0, 9CB 
730 DATA 00,51,F2,00,51,A2,50,F3,00,F1,F7, F2, OA, 51, F2, 7AO 
740 DATA 51,A5,00,F1, A0, F0, OA, 00, 50, F2, 00,50, F3, F3, F2, 7EB 
750 DATA 00,5A, AO,0F, A0, 50,F3,F3, 5, 00, F0, F3, A7, A0, 00, 763 
760 DATA 50,F1,00,05,F0, FO, A5, 00, 0F, OA, FO, 04, 05, FO, FO, 6C3 
770 DATA 45,00, 5A, FO, FO, 04, 00,05, F0, 00, 04, OF, OF, 0E, 00, 40E 
780 DATA OD,0A,0F, 08, 04,0F, 0F,0E, 00, 0D, 0F, OF, 08, 00, 04, 095 
790 DATA 0F,00,55,0C,0C, 5D, 00, AE, 08, 0C, AA,55, 0C, 0C, 5D, 30F 
800 DATA 00, AE, OC, OC, AA, 00,55, 0C,00,00,FF,FF, AA, 00, FF, 578 
810 DATA AA,FF,AA,00,FF,FF, AA,00,55,FF,FF,00, 00,55, FF, BA2 
820 DATA 00,6E, 71, CF,8E, A4, 3D, DO, E7, E7, 08, B6, 7B,E7, F3, 8DD 
830 DATA BA,F3,79,F3,DB, A2, 79,F3,F3,E7, À2,3E, F3,F3, DB, B4D 
840 DATA BA, 9D, 79, F3, 4D, A2, 6E, 78, F3, 8E, GA, 9D, 9C, F3, 4D, BEF 
850 DATA 08,64, 3€, 79, AE, BA, 30,9C, 3C,FF, 08,87, 98, B2, 9D, 708 
860 DATA A2, DB, 6E, E6, 78, 8, 4D, B7,9F, E7, 08, 8C, DB, 59, 8E, 8B6 
870 DATA 88,6E, AE, E, EE, 2A,E7, 4D, ET, 4D, A2, 6E, AE, BE, EE, 8EC 
880 DATA 2A,8C,DB, 59, BE, 88, 4D, B7,9F,E7, 08, DB, 6E, E6, 7B, 83C 
890 DATA BA,B7,98, 82, 9D, A2,F3,63,E1, 73, A2,B3, D2, F0, 93, AÎE 
900 DATA A2,63,F1,3F,E1, 22,D2, 79, F3, 74, 82, FO, 3C, B6, 7A, BCE 





910 DATA A0,F0,3F,3D, 7A, AO, SA, 9D, 3F,DB,04A,87,64,CC,25,71A 

920 DATA 82,63, 1A,30,E1,22,B3,87,A5,03, A2,F3, 63, 4B, 73, 75A 

930 DATA A2,63,D3,E7,8E, AA, 33,D3,E7,E7,08,B1,73,E7,F3,9D1 

940 DATA BA,F2,73,F3,DB, A2,F1,F1,F3,E7, A2, 72,F3,F3, DB, BFO 

950 DATA BA,33,F1,F3,4D, A2, 03, 72,F3,8E, 84,63, 33,F3, 4D, 876 

960 DATA 08,93,93,F3, AE, 84, C3,63,F3,FF,08, 00, 00,00, 00,679 

970 DATA 00,00,00,00,00,00,51, 79, 79, 42,00, 15,3F,3E,F3, 364 

980 DATA 00,44, CC, D9, F3, 00, 10, 30, 71,F3, A2, 00,00, 14,F3,629 

990 DATA 28,00,00, 15,30, 2A, 00, 00, 44,3F,88, 00,00, 10, CC, 28A 

1000 DATA 20, 00,00, 00, 30,00,51,A2,F3,F3,F3,B6,F3, 79, 79,687 
1010 DATA B6,16,29,01,02,33, 33,33, 33, 33, 33, 33, 33, 33,33, 2F6 
1020 DATA 33,33, 33,33, 33,33, 33, 33, 33, 33, 33, 43, 33, 33, 33, 2FD 
1030 DATA 33,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33,33, 2FD 
1040 DATA 33, 33,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1050 DATA 33,33,33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33,33, 2FD 
1060 DATA 33,33,33, 33, 33, 33, 33, 33, 43, 33, 33, 33, 33, 33, 33, 2FD 
1070 DATA 33,63,33, 33,63, 33, 33,33, B1,63,33, 33,63, 33,33, 438 
1080 DATA 33,B1,33,93, 33, 33,93, 33,33, 72, 33,63, 33, 33,63, 4DA 
1090 DATA 33,33,33,B1,33,63, 33, 33,63, 33, 33, 33,B1,33,33,459 
1100 DATA 33,33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1110 DATA 33,33,33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33,33, 2FD 
1120 DATA 33,33,33,33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1130 DATA 33,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1140 DATA 33,33,33,33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1150 DATA 33,33, 33, 33,33, 33, 33, 33,33, 33, 72,33, B1, 33,33, 3BA 
1160 DATA B1,63,33, 72, 33,B1, 33, 33,B1, 63, 33,33, B1, 72, 33,5D3 
1170 DATA 33, 72,33,93, 33, 72,33,B1,33, 33,B1,63, 33, 33, 72,546 
1180 DATA 33,B1,33,33,B1,63, 33, 33, 33, 33, 33, 33, 33, 33, 33, 429 
1190 DATA 33,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1200 DATA 33,33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1210 DATA 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1220 DATA 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1230 DATA 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1240 DATA 33, 33,33, 33,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,92D 
1250 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3, B6D 
1260 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3, C3, C3, C3, BED 
1270 DATA C3,03,03,03,C3,E1,C3,63,C3,C3,C3,C3,C3,E1,C3,B49 
1280 DATA 63,C3,C3,C3,C3,C3,D2,C3,93,C3,C3,C3,C3, C3, C3, AEC 
1290 DATA E1,03,63,C3,C3,C3,C3,C3,C3,E1,C3,63,C3,C3,C3,AE9 
1300 DATA C3,C3,C3,C3,C3,C3,C3,D2,C3,C3,C3,C3,C3,C3,C3,B7C 
1310 DATA D2,C3,C4,US,04, C4, 03,03, C3, E1,C3,C3,C3, C3, C3, B9A 
1320 DATA C3,C3,D2,03,C3,C3,C3,C3,C3,C3,C3, D2, C3, C3, 93, B5B 
1330 DATA C3,03,03,03,C3,C3,C3,93,C3,C3,C3,C3,C3, C3. C3, B3D 
1340 DATA C3,63,C3,C3,C3,C3,C3,C3,C3,93, C3, C3, C3, C3, C3, ADD 
1350 DATA C3,03,03,93,C3,C3,C3,C3,C3,C3,C3,C3, C3, C3;C3, B3D 
1360 DATA C3,C3,C3,C3,C3,C3, C3,C3,C3,C3,C3,C3,C3,C3, C3, B6D 
1370 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3, C3, C3, C3.C3, B6D 
1380 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3, C3, C3, 63, C3, C3,B0D 
1390 DATA C3,C3,C3,C3,C3,63,C3,C3,C3,C3,C3,C3,C3, 93,C3, ADD 
1400 DATA C3,C3,C3,C3,C3,C3,C3,63,C3,C3,C3,C3,C3,C3,C3, BOD 
1410 DATA C3,63,C3,C3,C3,C3,C3,93,D2,C3,C3,C3,D2,C3,63,A9B 
1420 DATA 93,D2,C3,C3,C3,D2,C3,63,C3,63,E1,C3,C3,C3,E1, AD7 
1430 DATA 93,C3,93,D2,C3,C3,C3,D2,C3,63,C3,93,D2,C3,C3, AAA 
1440 DATA C3,D2,C3,63,C3,C3,C3,C3,C3,C3, C3,C3,C3,C3,C3,B1C 
1450 DATA C3,C3,03,03,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,B6D 








1460 DATA C3,C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, B6D 
1470 DATA C3,C3,C3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3, DAD 
1480 DATA F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,E3D 
1490 DATA F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,95, 98, E7, CF, D54 
1500 DATA 5D,F3,F3,F3,FF,FB,FB,F3,FF,FB,FF,FB,FB,FB,F3,DFB 
1510 DATA FF,FB,FB,FB,FF,FB,FF,FB,FF,FB,FB,FB, F3, F3,FB,EBS 
1520 DATA F7,FF,F7,FF,F7,FF,F3,F3,F3,94,6E, F3, DB, 8E, F3, DOC 
1530 DATA F3,F3,59, 59,50, F3, 0C, 59, 0C, 59, 59,59, F3, 0C, 59, 6B8 
1540 DATA 59,59, 0C, 59,00, 59, 0C, 59, SD, 59, F3, A6, 59, A6, A6, 5D5 
1550 DATA A6,A6, A6, A6,F3,F3,F3,D1, 30, F3,DB,E7, F3, F3,F3, COD 
1560 DATA 5B,58,58, F3,58, 58,58, 58,58, 58, F3, 58, F3, 58, 5B, 71D 
1570 DATA 5B,F3,A7,F3,5B,F3,0E,5B,F3,F3,5B, A7, A7, A7, A7,97C 
1580 DATA A7,A7,F3,F3,F3,D1,B6, F3,E7,F3,F3,F3,F3, A5,F3,CEC 
1590 DATA F1,F3,45,F1,F1,F3,F0,F3,F3, FU, F1,58, 58, FU, F4, CAC 
1600 DATA F2,F3,A5,5B, A5, F1,F3,F3,F1,F2, SA, F2,5A, F2, F2, BCE 
1610 DATA F3,F3,F3,94,F3,F3,F3,DB,F3,F3,F3, F0, F1,5B, F3, D29 
1620 DATA FO,F1,F1,F3,A5,F4,F3,F3,F4,F0,F1,F3,F1, F2, F3, DDC 
1630 DATA FO,F1,F1,F1,F3,F3,F1,F2, FO, F2, F0, F2, F2, F3,F3,E28 
1640 DATA F3,95,79,F3,E7,E7,F3,F3,F3,59,59,58,5B, 5B, 5B, 986 
1650 DATA 5B,58,5B,5B,F3,F3,5B,A7,F3,F3,5B,A7,F3,5B,F3,97D 
1660 DATA 5B,5B,F3,F3,5B,F3, A7,F3,47,A7,A7,F3,F3,F3, CA, B16 
1670 DATA 3E,F3,A6,DB, 30, 3, 3C,0C, 1C, OC, 1C, 1C, 1C, 0C, 1C, 416 
1680 DATA {C, 1C,3C, OC, 1,20, 0, 0C, 1C, 2C, 30, OC, 1C, 1C, 1C, 1F4 
1690 DATA 3C,2C, 0C, 2C,0C, 2C, 0C, 2C, OC, 3C, 30, 3,95, 9D, F3, 3F5 
1700 DATA E7,4D,3F,3F,3F,3F,3F, 3F,3F,3F, 3F, 3F,3F, 3F, 3F, 467 
1710 DATA 3F,3F,9F,3F,9F,9F,F,3F,3F, 9F, 3F, 3F,3F, 3F,3F, 381 
1720 DATA 3F,3F,3F,9F,3F,9F,9F,9F,3F,9F,C4,6E, 79, AG, BE, 555 
1730 DATA CC,CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, BF4 
1740 DATA CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, CC, BF4 
1750 DATA CC, CC, CC, CC, CC, CC, CC, CC, 90, 9D, 3, F7, 4D, 30, 30, 96D 
1760 DATA 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 2D0 
1770 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 2D0 
1780 DATA 30,30, 30, 30, 30, 30,90, 64, 3C, 7D, AE, CO, CO, CO, CO, 67B 
1790 DATA CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, B40 
1800 DATA CO, C0, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, B40 
1810 DATA CO,CO, CO, CO, CO, CO, CO, CO, CO, 33, 33, 33, 33, 33,63, 822 
1820 DATA C3,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EBS 
1830 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF.FF,EFI 
1840 DATA EA,CO, CO, CO, CO, CO, CO, 33, 72, 33, 33,63, C3, AE, 0E, 857 
1850 DATA 0E,0E, 0€, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0E, 0D2 
1860 DATA 0E,0E, 0E, OE, 0E, 0E, OE, 0E, OE, 0E, 0E, 0E, 0E, OE, EB, 1AF 
1870 DATA 93,33, 33, 33, 33,63, 33, 33,63, 63, D7, 00, 85, 85, 85,561 
1880 DATA 85,85,85,85, 85,85, 85, 85,85,85, 85,85, 85, 85, 85, 7CB 
1890 DATA 85,85,85,85,85,85,85,85,85, 85, 85, 85, 5D, 93, 33, 75F 
1900 DATA 63, 33,33, 33, 33, 33, 33, 63,86, SA, 5B, 54,58, 5A,5B, 49D 
1910 DATA 5A,58,54,58,5A,58, 54,58, 5A,5B, 5A,5B, 5A,5B, SA, 54D 
1920 DATA 58, 54,58, 5A,5B, A, 58, SA, 5A,5B, 0E, C3, 33, 33, B4,571 
1930 DATA 33,33,33, 33,33, C3,AF,85,85, 85, 85,85, 85, 85, 85, 699 
1940 DATA 85,85,85,85,85,85,85, 85,85, 85, 85,85, 85, 85, 85, 7CB 
1950 DATA 85,85,85, 85,85, 85,85, 85,85, BB, 33, 33, 33, 33, 72,646 
1960 DATA 33,81,33,C3,58,F2,F1,5A,F1,5A,F1,5A,F1,5B,F1,942 
1970 DATA 5A,F1,5A,F1,58,5B,5A,F1,5A,F1,5A,F1,5B,F1,5A,BD3 
1980 DATA F1,5A,F1,5A,FO,F1,5A, 19,33, 33, 33, 33, 33, 33, 33,64F 
1990 DATA 33,C3,5B, D1,D0, Di, D0,D1,D0, D, DO, 85, DO, D1, DO, ACB 











2000 DATA D1,D0,D0,D0,D1, DO, D, DO, Di, D0, 85, DO, DO, DO, Di, BEA 
2010 DATA DO,D1,D1,D0,D1, 48, 33, B1, 33, 33, 33, 33, 33, 33,63, 607 
2020 DATA F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3, F3, F3,F3,E3D 
2030 DATA F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,F3,E3D 
2040 DATA F3,F3,F3,83, 33,33, 33, 33,C3, C3, C3, C3, C3, 3C, 3C, 80F 
2050 DATA 30,30, 3C, 3C, 30, 3C, 3C, 30, 3C, 3C. 3C, 3C, 30, 3C, 3C, 384 
2060 DATA 3C,3C,3C, 3C, 30, 4C, 3C, 30, 3C, 30, 30, C, 30, 3C, 3C, 384 
2070 DATA 3C,69,C3,C3,C3,C3,C3, C3, C3, E1, C3, 03,03, 03, 03, AA 
2080 DATA 03,03,03, 03, 03,03, 03, 03,03, 03, 03, 03,03, 03, 03, 02D 
2090 DATA 03,03,03,03,03,03, 03,03, 03, 03, 03, 03,03, 03, 43, 06D 
2100 DATA C3,63,C3,C3, C3, C3,C3, C3,C3, 2, CO, CO, CO, CO, CO, B1D 
2110 DATA CO,CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, B40 
2120 DATA C0,C0, CO, CO, CO, CO, CO, CO, CO, CO, CO, CO, E3, C3, C3, B69 
2130 DATA D2,C3,C3,93,C3, C3,C3,E2,C3,C3, C3,93, C3, C3, C3, B3B 
2140 DATA C3,C3,C3,C3,C3,63,C3, C3,C3, C3, C3,C3, C3, 93, C3, ADD 
2150 DATA C3,C3,C3,C3.C3,C3, C3,C3,93, C2, E3, C3,C3, C3,C3,B5C 
2160 DATA C3,C3,C3,C3,C3,E2, C3, C3,C3,C3, C3, C3, C3, C3, C3, BAC 
2170 DATA C3,C3,C3,C3,C3, C3,C3, C3, C3,C3, C3, C3, C3, C3, C3, B6D 
2180 DATA C3,C3,C3,C3, C3, C3, C3, C2,E3, C3, C3, C3, C3, C3, C3, BBC 
2190 DATA C3,C3,C3,E2,C3,C3, C3, C3,C3, C3, C3, C3, C3, C3, C3, BBC 
2200 DATA C3,C3,C3,C3,C3,C3, C3, C3,C3, C3, C3, C3, C3, C3, C3, B6D 
2210 DATA C3,C3,C3,C3,C3,C2,E3,C3,C3, C3, C3, C3, C3, C3, 63, B2C 
2220 DATA C3,E2,C3,C3,C3,C3,C3,63,C3, C3, C3, C3, C3, C3, C3, B2C 
2230 DATA 93,C3,C3,C3,C3, C3, C3,C3,C3, 63, C3, C3,C3, C3, C3, ADD 
2240 DATA C3,C3,C3,C2,E3,C3, C3, C3,C3,93, D2, C3, C3, C3, E2, BBA 
2250 DATA C3,63,03, D2, Ca, Ca, C3, D2,C3,63, C3,63,E1, C3, C3, A59 
2260 DATA C3,E1,93,C3,93,D2, C3, C3,C3, D2, C3, 63, C3, 93, 93, AB9 
2270 DATA D2,C2,E3,C3,D2,63,C3,C3,C3, C3, C3, C3, E2, C3, C3, B69 
2280 DATA C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3,C3, C3, C3, B6D 
2290 DATA C3,C3,C3,C3,C3, C3, C3,C3,C3, C3, C3, C3, C3, C3, C2, B6C 
2300 DATA E3,C3,C3,C3,C3, 33, 33, 33, 33, 33, E2, 33, 33, 33, 33, 60€ 
2310 DATA 33,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
2320 DATA 33,33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 62, B3, 33, 3AC 
2330 DATA 33,33,33, 33, 72,33, 33, 33, E2, 33, 33, 33, 72, 33, 33, 42A 
2340 DATA 33,63,33,33, 33,33, B1, 33,33, 33, 93, 33, 33, 33, 72, 444 
2350 DATA 33,33,33,63, 33, 33, 33, 33, 33, 72,62, B3, 33,63, 33, 44B 
2360 DATA 33,63,33, 33,63, 33, E2, 33,B1,63, 33, 33,63, 33, 33, 4EA 
2370 DATA 33,B1,33,93, 33, 33,93, 33, 33, 72, 33,63, 33, 33, 63, 4DA 
2380 DATA 33,33,33,B1, 33,63, 63, 33,62, E3, 33, 33, B1, 33, 33,538 
2390 DATA 33,33,33, 33, E2, 33, 33, 33,33, 33, 33, 33, 33, 33, 33, 3AC 
2400 DATA 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
2410 DATA 33,33, 33, 33, 33, 33, 62, B3, 33, 33, 33, 33, 33, 33, 33, 3AC 
2420 DATA 33,33,68, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 332 
2430 DATA 33,33, 33, 72,33, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33C 
2440 DATA 33,33,33, 33, 62, B3, 33, 33, 33, 33, 72, 33, B1, 33, 33, 469 
2450 DATA 68,63, 33, 72,33, B1, 33, 33,81, 63, 33, 33, B1, 33, 72, 58A 
2460 DATA 33, 33,33, 33, 33, 72,33, 81,33, 33, B4,63, 33, 33, 72, 4A7 
2470 DATA 72,33,E0,B3, 33, B1, 33, 33,33, 33, 33, 33, 33,68, 33,51C 
2480 DATA 33,33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
2490 DATA 33,93, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 35D 
2500 DATA 62, 39,33, 33, 33, 33, 33, 33, 33, 33, 33,68, 33, 33, 33, 367 
2510 DATA 33,33,33, 33,33, 33, 33, 33,33, 33, 33, 33, 33, 33, 33, 2FD 
2520 DATA 33, 33,33, 33, 33, 33, 33, 33, 3, 33, 33, 33, 33, 62, 39, 332 
2530 DATA 33,33,33,33,C3,C3,C3,C3,C3,68, C3, C3, C3, C3. C3, 8D2 








2540 DATA C3,C3,C3,C3, C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, B6D 
2550 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3, C3, C2, 69, C3, C3, B12 
2560 DATA C3,C3,C3,C3,C3,E1,C3,68,C3,C3, C3, C3, C3, Et, C3, B4E 
2570 DATA 63,C3,C3,C3,C3, C3, C3, C3,C3,C3,C3, C3, C3, C3, C3, BOD 
2580 DATA E1,C3,63,C3,C3,C3,C3, C3, C3, C2, 43,C3,63, C3, C3, A6A 
2590 DATA C3,C3,C3,C3,C3, 42,F3,F3,F3,F3,F3,F3,F3,F3,F3,C9C 
2600 DATA F3,F3,F3,F3,F3,F3,F3,F3,F3,F3, F3,F3,F3, F3, F3,E3D 
2610 DATA F3,F3,F3,F3,F3,F3,F3,E3,C1,C3, C3, D2, C3, C3, 03, CBA 
2620 DATA C3,C3,C3,C1,C3,C3,C3,93,C3,C3, C3, C3,C3, C3, C3, B3B 
2630 DATA C3,C3, C3, C3, C3,C3, C3, C3, C3, 93, C3, C3, C3, C3, C3, B3D 
2640 DATA C3,C3,C3,93,63,C3, C3, C3, C3, C3, C3, C3,C3, C3, C3, ADD 
2650 DATA C3,C3,C3, C3, C3,C3, C3, C3,C3, C3, C3, C3, C3, C3, C3, B6D 
2660 DATA D2,C3,63,C3,C3,C3, C3, C3,C3,C3, C3, C3, C3, C3, C3,B1C 
2670 DATA C3,C3,C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, B6D 
2680 DATA C3,C3,C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, B6D 
2690 DATA C3,C3,C3,C3,C3,C3,C3, C3, C3, C3, C3, C3,C3, C3, C3, B6D 
2700 DATA C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, 63, C3, C3, C3, C3, BOD 
2710 DATA C3,C3,C3,63,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, BOD 
2720 DATA C3,C3,C3,C3,C3,63,C3, C3, C3,C3, C3, C3, C3, C3, 63, AAD 
2730 DATA C3,C3,C3,C3,C3,93,D2, C3, C3, C3, D2, C3, 63, 93, D2, ADA 
2740 DATA C3,C3,C3,D2, C3,63,C3, 63, E1,93, C3, D2, C3, 93, C3, AB9 
2750 DATA 93,D2,C3,C3,C3, D2, C3,63,C3, 93, D2, C3, C3, C3, D2, AE9 
2760 DATA C3,63,C3,C3,C3,C3, C3, C3, C3, C3, C3, C3, C3, C3, C3, BOD 
2770 DATA C3,C3,C3,C3,C3,C3,C3,C3, C3, C3, C3, C3,C3, C3, C3, B6D 
2780 DATA C3,C3,C3,C3,C3,C3, C3, C3, C3, C3, C3, C3,C3, C3, C3, B6D 
2790 DATA C3, 00,00, 00, CO, 00, 00, 00, 00, 00, 40, C3, 80, 00, 00, 306 
2800 DATA 00, C0, C1, FO, C2, CO, 00, 40, Di, DO, FO, EO, E2, 80, 40, 946 
2810 DATA B6,D1, F0, E2, 79,80,D1,87,E7,F3,DB, 7B,E2, D, 60, B29 
2820 DATA 2D, CF, LE, 9C, E2, 94, 34, 2E, OF, 1D, 35,68,95, DO, DD, 6AB 
2830 DATA OC,EE, E6, 64, C4,60,E6,FF, D9, 90, CB, DS, 48, 79, 29,943 
2840 DATA B6,84,EA, 84, 4A, 16, C0, 29,85, 48, 40, C0, AE, CO, SD, 789 
2850 DATA CO, 80, 00, 40, 0D, 00, 0E, 80, 00, 00, 40, 5B, 00, A7, 80, 3DD 
2860 DATA 00, 00,40, C0, 00, C0, 80, 00, 00, 40, 64, 00,98, 80, 00, 3FC 
2870 DATA 00,40, 9D, 00,6E, 80, 00, 00, 00, CO, 00, CO, 00, 00, 00, 34B 
2880 DATA 00, C0, 00, 00, 00, 00, 00, 40, 7B, 80, 00, 00, 00, 00, 40, 23B 
2890 DATA 9D, 80,00, 00, 00, 00, 40,60, 80, 00, 00, 00, 00, 40, B6, 333 
2900 DATA 80, 00,00, 00, 00, 40, 29, 80, 00, 00, 00, 00, 40, 5B, B0, 284 
2910 DATA CO, 00, 00, 00, 4û, D, BU, GE, BU, OU, OU, a, AË, BU, UB, aëi 
2920 DATA 80, 00,40, C0, F3, 80, 29, CO, 80, 84, 44, 79, BO, OE, 85, 6B6 
2930 DATA 48,D5,48, 16,30, 5D, 84,EA,85,E2, CO,FF,53,D1, CA, BBA 
2940 DATA 84, 4A,D5,0C, AB,C5, 48, DS, 59, 84, OF, 4C, AG, EA, 40, 744 
2950 DATA F3,85,CF, LA, F3, 80, 40, 79, C5, F3, CA, B6, 80, 40, 16, 89B 
2960 DATA Di, F0, E2, 29, 80, 00, 81, DO, FO, E0, 42, 00,00, 40, Ci, 7B0 
2970 DATA FO, C2, 80, 00,00, 00, 40, C3, 80, 00, 00, 00, 00, 00, CO, 475 
2980 DATA 00,00, 00, 00, 00, 00, 00, CO, 00, 00, 00, 00, 00, 40, 7B, 17B 
2990 DATA 80,00, 00, 00,00, 40, 9D, 80, 00, 00, 00, 00, 40, 60, 80, 2FD 
3000 DATA 00,00, 00, 00, 40, BG, 80, 00, 00, 00, 00, 40, 29, 80, 00, 25F 
3010 DATA 00,00, CO, 40, CO, 80, 00, 00, 40, 6E, 40, 6E, 80, 00,00, 41€ 
3020 DATA 40,98, 40,98, 80, 00, 40, CO, F3, 40, 29, CO, 80, 84, 4A, GQA 
3030 DATA 79,40, 0E, 85, 48,D5, 48, 16, 30, SD, 84, EA, 85, E2, CO, 6E9 
3040 DATA FF,53,D1,CA,84,4A,D5,0C, AB, C5, 48,D5,59, 84,0F,815 
3050 DATA 4C,AG,EA, 40,F3,85, CF, 1A,F3, 80, 40, 79, C5, F3,CA, 928 
3060 DATA 86,80, 40, 16, D1, FO, E2, 29, 80, 00, 81, DO, FO, EO, 42, B3B 
3070 DATA 00,00, 40,C1, FO, C2, 80,00, 00, 00, 40, C3, 80, 00, 00, 486 
3080 DATA 00,00, 00, CO, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0CO 





DATAS 2 


10 ? 
20 * DATAS pour SHOOT2.BIN œ 

30 ' 

40 MODE 2:AD=&C000:NL=1 10 

50 FOR B=:1 TO 260:T0T-0:FOR T=0 TO 14:READ A$ 

60 POKE AD, VAL("&"+A$) : TOT=TOT4PEEK (AD) :AD=AD+1 

70 NEXT:READ SOH$:IF VAL("&"+S0M$)C)TOT THEN 90 

80 NL=NL+10:NEXT:SAVE"SHOOT2. BIN",B, &CO00, &F32:CLS :END 

90 CLS:LOCATE 1, 1:PRINT"LIGNE" :NL: "INCORRECTE" :END 

100 ? 

110 DATA C3,35,75,62, 84, 31,00, CO, 21, EE, BD, 36,C9,CD, EE, TCA 
120 DATA 75,3E,01,11,D1,7E, CD, 41,81, AF,CD,0E, BC, 06, 00, 5EF 
130 DATA 0E,00,CD, 38, BC, CD, EO, 7B, 21,00, CO, 22, E5, 7D,06,66F 
140 DATA 32,CD,87,7C, 21, DD, 78,06, 05, CD, BO, 78, 21, 5A, 79,66C 
150 DATA 11,D4,E3,CD, 5, 78, 21,00,51,11,FB,E1,01, 16,00, 5E0 
160 DATA 3E,0F, CD, 41, 7B,CD, 92, 7C, CD, (E, 7E, CD, F1, 7B,3E, 791 
170 DATA 4C,CD, LE, BB, C2, 94, 75, CD, 63, 7E, CD, 30, 7A, C3, 89, 834 
180 DATA 75,CD,E0, 7B,AF, CD, 0E, BC, CD, AO, 7C, CD, F5, 79, 21,928 
190 DATA 00,C0,22,E5, 7D, AF, 32, 13, 78, 3E, 30, 32, 0F, 78, 32, 509 
200 DATA 11,78,21,00,51,11,92,FC,01,16,00,3E, OF, CD, 41, 40C 
210 DATA 78, CD, 4D, 78, 21,6D, 79,06, 03, CD, BO, 78, 21, 90, 79,63C 
220 DATA 11,80, E8,CD, 5, 7B, 21, AC, 79, 11, CO, E9, CD, SA, 7B, 7BD 
230 DATA AF, 32, DD, 70, 32,DF, 7D,C3,F5, 75, 21,EB, 70, 22,CF, 870 
240 DATA 7D,C8,AF,32,DD, 7D, CD, 92, 7C, CD, 18, 7C, CD, 30, 7A, 834 
250 DATA 21,D2, 76, 1i,00,EB, CD, 5A, /B,CD, Fi, 78, dE, 42, CD, T8F 
260 DATA 1E,BB, C2, F2, 79,3A,E7, 70, CD, 1E, BB, CA, 0E, 76,06, 79E 
270 DATA 07,C5, DD, 21,6D, 7D, DD, 7E, 0C, D6,05, DD, 77,0, 3, 694 
280 DATA 02,21,94, 00, 04,5A,5E, CD, 03, 7E, CD, 30, 7A, CD, 34, 542 
290 DATA 78,3E, 42,CD, 1E, BB, C2,F1, 79, 3E, 12, CD, 1E, BB, C4, 784 
300 DATA OF,7C,C1,10,CF, CD, 07, 7A, DD, 21, 7E, 7D, DD, 77, 0E, 6D4 
310 DATA DD,21,8F, 7D, DD, 7E, 0E,FE, 02, C2, 70, 76, DD, 21, 7E, 797 
320 DATA 7D,DD, 36, 0€, 02,06, 0F, C5, DD, 21, 8F, 70, DD, 7E, 0C, 5EB 
330 DATA D6,07,DD, 77,00, CD, LA, 7A, DD, 21, 7E, 7D, CD, 1A, 7A,6FB 
340 DATA CD, 30, 7A,3E, 42,CD, 1E, BB, C2, F1, 79,3E, 12, CD, (E, 704 
350 DATA BB,C4,0F, 7C, C1, 78,FE, 04, C2, B4, 76, DD, 21, 7E, 7D, 82A 
360 DATA FD, 21,6F, 7D, DD, 7E, 0E, FD, BE, OE, CA, E2, 76, 10, BC, B4A 
370 DATA 21,BC, 78,11,00, EB,CD, 54, 7B, 21,0F, 78,34, 11,98,578 
380 DATA EB,CD, 54, 78,06, FA, CD, 87, 7C, 06,64, CD, 87, 7C, 3A, 7CE 
390 DATA 13,78,3C,FE,09, D2, 1D, 77, 32, 13, 78,C3, FC, 75,06, 628 
400 DATA 03,C5, DD, 21,8F, 7D, DD, 7E,0C, C6, 07, DD, 77, 0C, CD, 733 
410 DATA 30, 7A,3E, 42, CD, LE, BB, C2, F1, 79,3E, 12, CD, LE, BB, 6F2 
420 DATA C4,0F,7C,C1, 10, DD, 21, C7, 78, 11,00, EB, CD, SA, 7B,6FB 
430 DATA 21,11,78,34,11,D8,E9, CD, 54, 7B,C3,C9, 76,06, FA, 754 
440 DATA CD,87, 7C,AF,CD, 0E, BC, CD, EO, 7, 06, 32, CD, 87, 7C, 846 
450 DATA 11,40,F2,06,06,C5, D5, 21,68, 53,01, 2B, 00, 3E, 10, 442 
460 DATA CD,41,7B,E1,11,A0,00, 19,EB, C1, 10, EA, 21, 00,51,64C 
470 DATA 11,5A,D9,01, 16,00, 3, 0F, CD, 41,78, DD, 21, 0F, 78, 486 
480 DATA FD,21, 11, 78, DD, 7E, 00, FD, BE, 00, D2, 8C, 77, FD, 7E, 80D 
490 DATA 00, 32,D8, 77,21, ED, 77, 11,36, D3,CD, SA, 7B, 21, E0,6C3 
500 DATA 77,11,29,D4,CD, 54, 78, 21,D3, 77,11, 19, D5, CD, 5A,6BB 








510 DATA 7B,C3, A4, 77,32, D8,77,21,C7, 77,11, 34, D3, CD, 5, 784 
520 DATA 78,21, E0,77,11,29,D4, CD, 5A,7B,21,D3, 77,11, 19,638 
530 DATA DS, CD, 54, 78, 21, FD, 77,11,55,EE, CD, 5A, 7B,CD,F{, 8C0 
540 DATA 7B, 3A,EB, 7D, CD, LE, BB, CA, B6, 77,06, FA, CD, 87, 2C, BBA 
550 DATA C3,48, 75,59, 4F,55, 20, 41,52, 45, 20,54, 48, 45, 2A, 440 
560 DATA 57, 49,54, 48, 20,30, 20, 47,4F, 41, C,53, 2A, 47,52,3E5 
570 DATA 45,41,54,20,57,49, 4E, 4E, 45,52, 2A, 43, 4F, D, 50, 426 
580 DATA 55,54,45,52, 20, 49,53, 20,54, 48, 45, 2,50, 4C, 45, 408 
590 DATA 41,53, 45, 20,50,52, 45,53, 53, 20, 46, 49,52, 45, 2A, 3F6 
600 DATA 30, 2A, 30, 2A, 00, 34, DF, 7D,FE, 01, CA, 77, 78, 3A,DD,619 
610 DATA 7D,FE, 01, CA,F1, 79, CD, 30, 7A, E, 12, CD, LE, BB, C4, 7E! 
620 DATA OF, 7C, 3€, 42, CD, 1E, BB, C2,F1, 79, C3, 14, 78, CD, 24, 71D 
630 DATA BB,FE, 09, CA,D6, 79,FE,05, CA, DF, 79,FE, 01, CA, EB, 9B1 
640 DATA 79,C9,21,1B,56,11,00,C0,01, 28, 00,3E, 2E, CD, 41, 44B 
650 DATA 7B,11,90,F1,06,09,C5,D5, 21,68,53,01, 2B, 00, 3E, 4FF 
660 DATA 10,CD, 41, 7B,E1, 11, A0,00, 19, EB, C1, 10, EA, C9, 06,689 
670 DATA FA,CD, 87, 7C, 21, 10, 27,11,3A,CB,01, 16,00, 3E, 18, 4A5 
680 DATA CD, 41, 78, 21,DD, 78, 11, 3C,EB, CD, 5A, 78,06, 64,C5, 708 
690 DATA 06,14,CD,87,7C,C1,10,F7,06,FA,CD, 87, 7C, 06, FA, 782 
700 DATA CD, 87, 7C,06,FA, CD, 87, 7C,C3, 48, 75,C5,5E, 23,56, 7BC 
710 DATA 23,CD,5A,7B,C1,10,F5,C9, 47, 4F, 41, 4C, 20, 2F,2F,5F5 
720 DATA 2F,2F, 20, 2A, 42,41, 44,20, 4C,55, 43, 4B, 20, 20, 2A, 328 
730 DATA 3F, 20, 20, 20, 20, 20, 20, 20, 20, 20, 2A, 51, C1, 42, 4C, 329 
740 DATA 41,43, 4B, 20,53, 59,53, 54, 45, 4D, 20,50, 52, 45,53, 42E 
750 DATA 45,4E,54,53, 2A, EB,E2, 44, 45,53, 49, 47, 4E, 20,31, 53C 
760 DATA 39,39, 30, 2A,5C, DD, 50,52, 4F, 47,52, 41, D, 2E, 2E, 479 
770 DATA 2E, 26, 2E, 20,4C,55, 43,20, 47,55, 49, 4C, 4C, 41,55, 3C1 
780 DATA 4D, 45, 2A, FC, DD, 47,52, 41,50, 48, 49, 43,53, 2E, 2E, 542 
790 DATA 20,48, 45,52,56, 45,20, 47,55, 49, 4C, 4C, 41,55, 4D, 41A 
800 DATA 45,24, 9C, DE, 40,55, 53, 49, 43, 2E, 2E, 2E, 2E, 2E, 2E, 47E 
810 DATA 2E, 20, 4C,55,43, 20, 47,55, 49, 4C, 4C, 41,55, 4D, 45, 3F7 
820 DATA 2A,50,52,45,53,53, 20, 46, 49,52, 45,20, 54, 4F, 20, 3E0 
830 DATA 50,4C, 41,59, 2A, 83, FD, 43,52, 45,41,54, 45, 44, 20, 4FB 
840 DATA 42,59, 2A,21,FE, 42, 4C, 41,43, 4B, 20,53,59,53,54, 4B4 
850 DATA 45,4D, 2A,C9,FE, 31, 39, 39, 30, 2A, 50, 4C, 41,59, 45, 4FB 
860 DATA 52,20, 31, 20, E, 20, 30, 30, 2A, 50, 4C, 41,59, 45,52, 378 
870 DATA 20, 32, 20,3E, 20, 30, 30, 2A, 43, 4F, 4D,50,55,54, 45, 377 
880 DATA 52, 20, 3, 20, 30, 30, 2A, 20, 34, 7A, 7D, 3C, FE, 02, C2, 4A9 
890 DATA C5, 79, AF, 32, 74, 7D, 21,94, 00, CD, 5C, 7D, 01, 5A,5E, 630 
900 DATA 09, 22, 74, 7D, C9, DD, 21, 8F, 7D, DD, 36,0E, 03, C9, DD, 6B9 
910 DATA 21,8F, 7D, DD, 36, 0€, 01, C9, DD, 21, 6F, 7D, DD, 36, CE, 643 
920 DATA 02,C9,C1,C3,48, 75, DD, 21,6D, 7D, 06,05, DD, 36, 00, 612 
930 DATA 00,11,11,00,DD,19,10,F5,C9, 2A, CF, 7D, 23, 22, CF, 570 
940 DATA 7D,7E,FE, 00, C0, 21, EC, 7D, 7E, 22, CF, 7D, C9, DD, 7E, 853 
950 DATA 0E,FE, 01, CA, 28, 7A,FE, 03, CA, 2C, 7A, C9, DD, 35,08, 6D0 
960 DATA C9, DD, 34, 0B,C9, 11,68, 70,06, 05, CD, 2D, 7B, C5, DS, 6BE 
970 DATA DD, 7E,00,FE, 00, 28, 32, CD, 30, 7D, DD, 7E, 0C, D6, 32, 69C 
980 DATA 21,2D,00,CD,5C, 7D, DD, 7E, 0B, D6, 64, 4F, 06, 00, 09, 4F2 
990 DATA 01,65, 00, 09, DD, 74,04, DD, 75,03, DD, 56, 06, DD, 5E, 58D 
1000 DATA 05, DD, 4E, 09, 06, 00, DD, 7E, OA, CD, C1, 7C, Di, C1, 13,653 
1010 DATA 10,BD, 11,68, 70,06, 05, CD, 20, 7B, C5, D5, DD, 7E, 00,638 
1020 DATA FE, 00,28, 1A,FE,FF, CA, A3, 7, DD, 66, 04, DD, 6E, 03, 789 
1030 DATA DD,56,08, DD,5E, 07, DD, 46, 09, DD, 4E, OA, CD, E7, 7C, 70E 
1040 DATA D1,C1,13,10,D5,21,64,00, ED, 5B, ES, 7D, 04, 2D, 00, 5E7 
1050 DATA 3E,C8,CD, 15, 7D,C3,F3, 7, 11,68, 7,06, 05, CD, 2D, 690 





1060 DATA 7B,C5,D5, DD, 7E,00, FE, 00, 28, 23, DD, 7E,0C, FE, D6, 7F4 
1070 DATA D2,EE, 7A, DD, 66,04, DD, 6E, 03, 28, DD, 56, 02, DD, 5E, 76A 
1080 DATA 01,DD, 7E, 09, C6,02, 4F, 06,00, DD, 7E, OA, CD, 15, 7D, 546 
1090 DATA Di,C1,13,10,CC, 11,68, 7D,06,05, CD, 2D, 7B,C5,D5,691 
1100 DATA DD, 7E,00,FE, 00,28, 23, DD, 7E,00,FE,FF, C2, 10, 78, 749 
1110 DATA DD, 36, 00, 00, DD,66, 06, DD,6E, 05, DD, 56,04, DD, 5E, BE 
1120 DATA 03, DD, 4E, 09, 06,00, DD, 7E, OA, CD, AE, 7C,D1,C1,13,63E 
1130 DATA 10,CC,C9, DD, 21,6, 7D,D5, 1A,11,11,00,FE, 01, 28,5C5 
1140 DATA 05,DD, 19, 3D,18,F7,D1,C9,C5,E5, DS, ED, BO, E1, 11, EF 
1150 DATA 00,08, 19, 30,04, 11,50, C0, 19,EB,E1,C1, 09, 3D,CB, 52A 
1160 DATA C3,41,7B, 7E,FE, 20, C2, 62, 7B,3E, 2D, D6, 20, E5,D5, 7E2 
1170 DATA DS,21, 10,00, CD, 5C, 7D, 01, 20, 4E, 09,01, 02, 00, 3E, 365 
1180 DATA 08,D1,CD, B4,7B,Dt,Et,13,13,23,7E,FE, 2A, C2, 5A, 792 
1190 DATA 7B,23,C9,7E,FE, 20, C2, 8F, 7B,3E, 2, D6, 20, E5,D5, 7F7 
1200 DATA D5,21, 10,00, CD,5C, 7D, 01,20, 4E, 09, 04, 02, 00,3E, 365 
1210 DATA 08,D1,CD, 41,7B,D1,E1,13,13,23,7E,FE, 2A, C2,B7, T4C 
1220 DATA 7B,23,C9,C5,E5,C5,E5, DS, ED, B0, Di, 21, 00, 08, 19, 840 
1230 DATA 30,04, 11,50,C0, 19,EB.E1,C1,D5, ED, BO, Di, 21,00, 75F 
1240 DATA 08,19,30, 04, 11,50, C0, 19,EB,E1,C1,09, 3D, CB, C3, ED 
1250 DATA B4,7B,AF,F5,06,00,0E, 00, CD, 32, BC, F1,3C, FE, 10, 6DD 
1260 DATA CB,C3,E1, 7B,21,F3, 70, AF,E5,F5, 46, 4E, CD, 32, BC, 950 
1270 DATA F1,E1,3C,FE, 10,C8, 23, C3,F5, 7B, CD, 00, BB, 21,FE, 8D1 
1280 DATA BD, 36,C9, C9, CD, 06, 7C. CD.06,BB, C3,06, BB, DD 21, 7E4 
1290 DATA 6D, 7D,DD, 36, 00,01, 32, 7A, 7D, DD, 36,09, 07, DD, 36,55D 
1300 DATA 0A,16,DD, 36,08, 75,DD, 36, 0C, D7, DD, 36, D, 00, DD, 5A6 
1310 DATA 36,0E, 00, 21, 5A,5E, DD, 75,07, DD, 74,08, DD, 21, 7E,54B 
1320 DATA 7D, DD, 36, 00, 01, DD, 36, 09, 07, DD, 36, 04, 13, DD, 36, 4F7 
1330 DATA 0B, 75, DD, 36,00, 50, 21,05, 5D, DD, 75,07, DD, 74,08,5F4 
1340 DATA DD, 21,8F, 7, DD, 36,00, 01, DD, 36, 09, 02, DD, 36, 0A, 559 
1350 DATA 07,DD, 36, 0B, 78, DD, 36,00, B4, 21, 5D,53, DD, 75,07, 59A 
1360 DATA DD, 74,08,C9, 21,F4,01, 28, 7C, B5, 20,FB, 10, F6, C9, 77E 
1370 DATA 11,64, 00, 2A,E5, 70,01, 2D,00,3E, CB, C3, D1, 7C, 21,566 
1380 DATA 64,00,36,00, 11,65, 00, 01, 38, 44, ED, B0, C9, C5,F5,5B3 
1390 DATA D5,ED, B0,D1,E5, 21, 20,00, 19,EB,E1,F1,C1, 3D,C8,912 
1400 DATA 18,ED,C5,F5,E5, ED, B0,Et,01,2D, 00,09, F1, C1, 3D, 848 
1410 DATA CB,18,F0,C5,F5,E5, ED, BO,E1,01, 00,08, 09, 30,04, 733 
1420 DATA 01,50,C0,09,F1,C1,3D, CB, 18, EA,C5,E5, 1A,FE, 00, 795 
1430 DATA CA,07, 7D,E6,55, 28,08, LA, EG, AA, 28,08, 14, 18,08, 4D0 
1440 DATA 7E,E6,55, 18,03, 7E,E6, AA, 4F, 1A,B1,77, 13, 23, 10,5B9 
1450 DATA DE.E1,01, 2D, 00,09, C1,0D, CB, 18, D2,C5,E5, DS, ED, 7E2 
1460 DATA BO, Di, 21,00, 08, 19, 30,04, 11,50, C0, 19,EB, Et, 01, 4FE 
1470 DATA 2D,00,09, C1, 3D,C8, 18,E5, 2A,E5, 7D,06, 00, DD, 7E,5E6 
1480 DATA 0B,D6,64, 4F, 09, DD, 7E, OC, D6, 32, FE, 00, CA, 55, 7D,6A6 
1490 DATA 11,00,08, 19,D2,51, 7D, 11,50, CO, 19, 3D, C2, 46, 7D, CE 
1500 DATA DD, 74,02, DD, 75,01, C9, EB, 21, 00, 00,FE, 00, C8, 19,654 
1510 DATA 3D,C3,60, 7D,01,02,03,04,05, 01, 00,00, 00, 00,62, 24F 
1520 DATA 84, 00,00, 0A, 14, 00,00, 00,00, 00, 00, 00, 00, 00, 00, AB 
1530 DATA 00, 22,85, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, OA7 
1540 DATA 00,00,00,D1, 85, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 156 
1550 DATA 00,00, 00, 00, 00, 80, 86, 00, 00, 00, 00, 00, 00, 00, 00, 106 
1560 DATA 00, 00,00, 00, 00, 00, 00, 2F, 87, 00, 00, 00, 00, 00, 00, BG 
1570 DATA 00,00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
1580 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
1590 DATA 00,00,00,00, 00, 00, 00, 00, 00, 00, 00, 48, 49, 4, 4B, 126 
1600 DATA 4C,01,03,01,01,03,03, 00,00, 00, 06, 02,01, 18, 17, 090 





1610 DATA 16,04, 09, 0F, 10, 12, 1A,0E, 03, 32, 0B, 7E, DD, 7E, OD, 2AB 
1620 DATA 3C,FE, 00, C2, 10, 7E, AF, DD, 77, 0D, CD, 5C, 7D, 09, DD, 726 
1630 DATA 75,07, DD, 74,08,C9, DD, 21,6D, 7D,06,05,0E, 46, 21,506 
1640 DATA 44,52, 3E, 68, DD, 36, 00, 01,DD, 75,07, DD, 74,08,11,519 
1650 DATA 37,00, 19, DD, 36,09, 05, DD, 36, 04, 0B, DD, 77,0B, C6, 4BE 
1660 DATA 07,F5, 79, DD, 77,0C,C6, 28,4F,F1,11,11,00, DD, 19,61B 
1670 DATA 10,D5, DD, 21, 7E, 7D, DD, 36,00, 02, DD, 36, 22, 02, C9,5F3 
1680 DATA DD, 21,6D, 7D,06,05,C5, DD, ES, CD, 7A, 7E,DD, Ei,C1,8BE 
1690 DATA 11,11, 00, DD, 19, 10,F0,C9, CD, BF, 7E, DD, 7E,00,FE, 74û 
1700 DATA 04, CA, 8B, 7E,FE, 02, CA, OA, 7E, CO, DD, 7E,0B, 3D, DD, 7FF 
1710 DATA 77,08, FE, 66, D0, DD, 36,00, 02, C9, DD, 7E,0B, 3C, DD, 713 
1720 DATA 77,08, FE, 8B, D8, DD, 36, 00,01, C9, DD, 7E, 10, 3C, DD, 744 
1730 DATA 77,10,FE, OA, DA, BF, 7E,FE, 13, DA, CB, 7E, DD, 36, 10, 7FA 
1740 DATA 00, C9, DD, 7E, 0C,D6, 03, DD, 77, 0C, C9, DD, 7E, 0C, C6, 75F 
1750 DATA 03, DD, 77,0C,C9,0C, 00, 04,01, 02,01,03,01, 02, 01, 247 
1760 DATA 03,00, 18, 00, DD, 00, 32, 01,87, 01,00, 00,00, 00, 01, 1B4 
1770 DATA 00,00, 0C,16,02,3F,01,0C, 15, 00,05, 01,00, 00, 0C, 087 
1780 DATA 16,00, 00,05, 01,00, 00, 0C,02, 02, AB, 00, 0C, 15, 04, 0F9 
1790 DATA A9,00, 25, 12,05,04, 00, 00,0C, OD, 00, 00,05, 01, 00, 105 
1800 DATA 00, 0C, OD, 00, 00,05, 00, 00,00, 05,01, 00,00, 0C, OD, 03D 
1810 DATA 02, AA,01,0C, 15,00, 05, 00,00, 00, 05,01, 00, 00, 0C,0ES 
1820 DATA 16,02, BD, 00, 0C, 15,04, BE,00,5C, 12, 05,01, 00, 00, 22C 
1830 DATA 0C, 16,00, 00,05,01, 00, 00, 0C, 02, 00, 00,05, 01, 00,03€ 
1840 DATA 00, 0C, OD, 00, 00,05, 01, 00,00, 0C, OD, 02, BE, 00, 0C, 104 
1850 DATA 15,00, 05, 00, 00,00,05,01,00, 00. 0C, OD, 02, 9F, 00, ODA 
1860 DATA 0C,15,00,05, 00,00, 00, 05,01, 00, 00, 0C, 16, 00, 00, O4E 
1870 DATA 05,0i, 00, 00, 0C, 16, 02, üF,00, OC, 15,00, 05, üi, 00, üFO 
1880 DATA 00,00, 02, 00, 04,00, 00, 0C,11, 05,01, 00,00, 0C, OD,O4E 
1890 DATA 00,00, 05, 01, 00,00, 0C, 0D, 00, 00, 05, 00, 00, 00, 05,029 
1900 DATA FF,01,00, 00, 0C,0D, 02, 8E,00,0C, 15, 00,05, 00, 00, 1CF 
1910 DATA 00,05,01, 00,00, 0C, 0D, 02, BE, 00, 0C, 15, 00,05, 04, 0D6 
1920 DATA 00,00, 0€, OD, 00,00, 05, 01,00, 00, 0C, 02, 02, 8E, 00, OBD 
1930 DATA 0C, 15,04, 00,00,0C,11,05,00,00, 00,05, 01, 00, 00, 04D 
1940 DATA OC, D, 02, BE, 00,0C,15,00,05,00, 00,00, 05, 01, 00, 105 
1950 DATA 00,0C, OD, 00, 00,05, 00, 00,00, 05, FF,01,00, 00, 0C, 12F 
1960 DATA OD, 02, 8E, 00, 0C, 15,00, 05,00, 00, 00, 05,01, 00, 00, C9 
1970 DATA 0C, D, 02, 8E, 00, 0€, 15, 00,05, 01, 00,00, 0C, OD, 00,0E9 
1980 DATA 00,05,01, 00, 00,0C, 02, 02, 7F,00, 0C, 15, 04, 00, 00, DBA 
1990 DATA 0C, 11,05, 00,00, 00,05, 01,00, 00, 0C, OD, 02, 7F, 00, 0C2 
2000 DATA 0C,15,00,05, 00,00, 00, 05,04, 00, 00, 0C, OD, 00, 00, 045 
2010 DATA 05,00, 00,00,05,FF, 01,00, 00, 0C, 16, 00,00, 05,01, 132 
2020 DATA 00, 00,0C, 16, 00,00, 05, 01,00, 00, 0C, 02, 00, 00, 05, 03B 
2030 DATA 01,00, 00,0C, D, 00, 00,05, 01, 00, 00,0C, OD, 00, 00,039 
2040 DATA 05, 00, 00, 00,05,04, 00, 00, 0C, OD, 00,00, 05, 00, 00, 029 
2050 DATA 00,05, 04, 00,00, 0C, 16,00, 00, 05, 01,00, 00, 0C, 16,050 
2060 DATA 00, 00,05,01, 00,00, 0C, 02, 00, 00, 05,01, 00, 00, 0C, 026 
2070 DATA 0D,00,00,05,01,00, 00, 0C, 0D, 00, 00,05, 00. 00, 00,031 
2080 DATA 05,01, 00,00, 0C, 0D, 00, 00,05, 00, 00, 00,05, 04, 00, O2A 
2090 DATA 00,0C, 16, 00,00,05,01,00,00, 0C, 16,00, 00, 05, 01, 050 
2100 DATA 00, 00,0C, 02, 02,00, 00, 0C, 11,00, 05, 01,00, 00, 0C, 03F 
2110 DATA 0D,00,00,05,01,00, 00, 0C, 0D, 00, 00,05, 00, 00,00,031 
2120 DATA 05, 04,00, 00, 0C, D, 00, 00,05, 00, 00, 00,05, 01, 00, 02A 
2130 DATA 00,0C, 16,00,00,05, 01,00, 00, 0C, 16,00, 00, 05, 01,050 
2140 DATA 00, 00,0C, 02, 02,00, 00, 0C, 11,00, 05,01,00, 00, 0C, 03F 
2150 DATA 0D,00, 00, 05,01, 00, 00, 0C, 0D, 00, 00,05, 00, 00, 00, 031 








2160 DATA 05,01, 00,00, 0C, OD, 00, 00,05, 00, 00,00, 05, FF,F5, 21D 
2170 DATA D5,CD, A7, BC, Di, F1,FE, 00, 21,F5, 83, CA, DD, BC, ED, AE 
2180 DATA 53,0B, 84, 1A, 32, 0D, 84, 3E, 01, 21,0F,84, CD, BC, BC, 4F7 
2190 DATA 3E,01,21, 19,84, CD, BF, BC, 3E, 02, 21, 20, 84, CD, BC, 5D3 
2200 DATA BC, 3E, 02, 21, 24,64, CD, BF, BC, 3E, 03, 21, 28, 84, CD, 5EB 
2210 DATA BC, BC, 3€, 03, 21, 32, 84, CD, BF, BC, 3E, 04, 21, 39, B4,5FB 
2220 DATA CD, BC, BC, 3€, 05,21, 46, 84, CD, BC, BC, 3E, 06, 21, 4A, 667 
2230 DATA 84, CD, BC, BC, 3E,07,21,54,84,CD, BC, BC, 3E, 08, 21,683 
2240 DATA 5B,84, CD, BC, BC, AF, 32, 09,84, 32, OA, 84, 32, 0A, 83,611 
2250 DATA 3E,01, 32, 04, 84, 24, 0B, 84, 23, 22, 07, B4, CD, BE, 82, 45F 
2260 DATA 21,F5,83,01,00,81,11,D5,81,C3,D7,BC,F3,F5,D5, 895 
2270 DATA E5,C5,DD,ES, FD, ES, CD, EC, 81,FD,E1,DD, E1,C1,E1,CC6 
2280 DATA D1,F1,FB, ED, 4D, 34,04, 84, 3D, FE, 00, CA, F9, 81, 32, 864 
2290 DATA 04,84,C9,06,03, DD, 2A,05,84,C5,DD,E5, 11,01,00, 583 
2300 DATA DD, 7E,00,FE, 00, CA, 13, 82, CD, 64, 82, 11,05, 00, DD, 664 
2310 DATA Et, C1, DD, 19, 10,E5, DD, 7E, 00, 3C, 32,04, 84, DD, 23,6DE 
2320 DATA DD, 22,05,84, DD, 7E,00,FE,FF, CO, AF, 32, A, 83,C3, 7D1 
2330 DATA 8E,82, 3€, 0F, FD, 21, 2F,83,C3, 4F,82,3E, 0F, FD, 21,620 
2340 DATA 38,83, C3,4F, 82,3E,0F, FD, 21,5C, 83,C3, 4F, 82,F5, 722 
2350 DATA DD,E5, FD,E5, FD, 77,06, CD, DC, 82, FD, E1, DD, E1, F1, 806 
2360 DATA 3D,FE, 09, C2, 4F, 82, FD, 36,06, 0F, C9, DD, 7E, 04,FE, 745 
2370 DATA 10,CA,34,82,FE, 11, CA, 30,82, FE, 13, CA, 46, 82, FD, 7CB 
2380 DATA 21,2F,83, 3D, FE, 00, CA, DC, 82, 11,09, 00, FD, 19, C3, 629 
2390 DATA 80,82, 2A, 07, 84,23, 7E,FE, 00, C2, AB, 82, AF, 32, 09,62C 
2400 DATA 84, 32, OA, 84, 32,04, 83, 2A,0B, 84, 23, 23, 7E, 22,07, 349 
2410 DATA 84,FE,64,CA, 17,83,FE,65, CA, 1F, 83, DD, 24, OD, 84, 7B1 
2420 DATA ED,5B,0B, 84, DD, 19, 30, FE, 00, CA, CD, 82, 11, 02, 00,634 
2430 DATA DD, 19, C3, BF, 82,DD,6E, 00, DD, 66,01, ED,5B, 0B, 84, 760 
2440 DATA 19,22, 05,84, C9, DD, 7E, 00, FD, 77, 00, DD, 6E, 01, DD, 685 
2450 DATA 66,02, CD, OF, 83, FD, 75,03, FD, 74, 04, DD, 7E, 03, FD, 70C 
2460 DATA 77,07, FD, 36,08, 00, FD, ES, E1, 34, OA, 84,FE, 00, CA, 70C 
2470 DATA AA, BC, DD, 7E,00,FE, 00, C2, AA, BC, C9, 34, 09, 84, FE, 875 
2480 DATA 00, CB, 29, C9, 3E,01, 32, 09,84, C3, 8E, 82, 3E, 01, 32, 4FC 
2490 DATA OA, 84, 23, 7E, 32, 04, 83, 22,07, 84, C3, 8E, 82, 00, 01, 46F 
2500 DATA 00,00, 00, 00, 0F, 00, 00, 00,02, 00, 00,00, 05, OF, 00, 025 
2510 DATA 00,00, 03, 00,00, 00, 00, 0F, 00, 00, 00, 04, 00, 00, 00,016 
2520 DATA 00,00, 00, 00, 00, 02, 00, 00,00, 00, OF, 00, 00, 00, 02,013 
2530 DATA 00,00, 00, OF, OF, OU, UO, UO, U2, 00, 00, 00, 18, OF, 00,046 
2540 DATA 00,00, 05,00, 00,00, 05, OF, 00, 00, 00, 05, 00, 00, 00, 01E 
2550 DATA OF,0F, 00, 00,00, 05, 00, 00,00, 0F, OF, 00, 00, 00, 05, 046 
2560 DATA 00,00, 00, 00, 0F, 00, 00, 00, 03,01, 00, 00,00, 0F, 00, 022 
2570 DATA 00,00, 06, 00, 00, 00, 01, 00, 00, 00, 00, 00, 02, 00, 00, 008 
2580 DATA 00,0C, 00,00, 00, 03, 02, 00,00, 00, 0F, 00, 00, 00, 00, 020 
2590 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
2600 DATA 00,00, 04,02, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 006 
2610 DATA 00,00, 00, 00,00, 03, 03, 00,00, 00, 00, 00, 00, 00, 07, 00D 
2620 DATA 00,00, 00, 00, 00, 00, 00, 00, 08, 00, 00, 00, 03, 00, 00, 008 
2630 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 000 
2640 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03,01, 00, 004 
2650 DATA OA,0A,FF,01,01,00,04,82,14,01,01,14,FF,01,01,2CC 
2660 DATA OF,FF,02, 82, 03,01, 03, 03,FF,03, 02, OA, FF, 08,05, 3B6 
2670 DATA FF,04,03,50,01,01, 14, 02,01,04,01,07,01,03, 02, 181 
2680 DATA 01,01,00,02, 0A,FF,05,01,0F,FF,01,03, 01,04, 01,231 
2690 DATA 01,00,04,05,FE,01,02,01,0F,05, OA, FF, 02,02, 01, 22E 
2700 DATA 0C,01,00,FF,01,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 119 





JuMmPY-JOE 


Hervé SCHIGEOWSKI 
Valable pour CPC 464, 
CPC 664 et CPC 6128 


Encore une fois vous êtes le 
héros de cette aventure et vous 
devez délivrer non pas une, non 
pas deux, mais sept jeunes filles 
prisonnières. Alors ne vous 
faites pas attraper par les 
fantômes. Le mode d'emploi 
est inclus dans le programme. 





10 ? PTTPTTTETITICIII TES EN) 
4 
20 ! # JUHPY-JOE >LB 
+ 
30 ! # )LC 
L 
40 ! # par >LD 
+ 
50 ! 4 LE 
L 
60 # SCHIGEOWSKI Herve >LF 
L] 
70 ! 4 >LG 
+ 
80 ’ # le 21/sars/1989  >LH 
+ 
90 ? 4 )LJ 
+ 
100 ! ÉANNNEENNNNNNNEENNEES )RE 
3 
110 ! )RC 
120 ? >RD 
130 ? RE 
140 ! ### PRESENTATION ET REGLES >RF 
DE JEU ### 
150 ? >RG 
160 MODE 1:CLEAR )LL 


170 INK 0,0:BORDER O:INK 1,6,24:PEN )TC 
1:LOCATE 16,12:PRINT"JUMPY JOE":LO 

CATE 16,13:PRINT" ":INK 2,1 

B:LOCATE 12,2:PEN 2:PRINT"SCHIGEOWS 

KI Herve" :LOCATE 16,6:PRINT"present 

e":LOCATE 15,1B:PRINT CHR$(164) : :PR 
INT'HARS 1989" 





180 m$=CHR$#(128):b$="<UNE TOUCHE S. >KP 
V.P>":FOR F=1 TO 18:LOCATE 11+F,24: 

INK 3,15:PEN 3:PRINT MID$(b$,F,1);m 
$:FOR U=1 TO 40:NEXT U,F 

190 A$=INKEY#:1F A$="" THEN 190 )IC 
200 HODE 2:1NK 1,24:INK O,0:PEN 1 >ZD 


210 LOCATE 33,1:PRINT"REGLES DU JEU >CN 
:":LOCATE 33,2:PRINT" , 
220 LOCATE 1,5:PRINT" JUMPY JOE,n >XU 


otre heros,doit delivrer sept jeune 
g filles que l'infase sorcier GART 
H a capturees et enfersees dans des 
cages ,au sosset de ses sept tours 
mle-fiques." 
230 PRINT" Pour delivrer une fill >JV 
e,il doit penetrer dans une des tou 
rs et rasasser huit clefs.Lorsqu'il 

les aura prises,une neuvieme clef 
apparaitra.Cette derniere lui perse 
ttra d'ouvrir la cage et l’une des 
sept filles sera enfin libre.";: 
240 PRINT"11 devra operer de meme d >RF 
ans les six autres tours afin que t 
outes les filles soient delivree 
s! 
250 PRINT" Malheureusement, des nons 
tres occupent chaque etage des tour 
s et pospent l’ener-gie de toute pe 
rsonne qu'ils capturent. lorsque l'e 
nergie de leur victime atteind-20-, 
ils peuvent la devorer...Alors atte 
ntion JUHPY JOE! 
260 PRINT"Fort heureusement, des sac )AQ 
s d'energie sont là et permettent d 


VV 


DC 


9 


’augsenter le taux d'energie de la 
personne qui les consosne. 

270 PRINT'Hais attention,au fur et )»XJ 
a mesure que JUMPY J0E delivre des 
filles et penettre dans une autre 
tour, son energie de depart est de p 

lus en plus basse et il doit donc 
redoubler de prudence et d'adresse 


280 PRINT"La partie n’est gagnee qu >CU 
e lorsque les sept jeunes filles 30 
nt delivrees. 

...BONNE CHANCE. 
290 n$=CHR$(128) :b$="CUNE TOUCHE S. >JD 
V.P)":FOR F=1 TO 18:LOCATE 31+F,25: 
PRINT HID$(b$,F,1);m$:FO0R U=1 TO 40 


:NEXT U,F 

300 A$=INKEY3:1F A$="" THEN 300 >XM 
310 ? )RE 
320 * #### DEFINITIONS #### >RF 
330 >RG 
340 record=500 >YK 
350 DEFINT A,B,E,1,J,S,U,V,U,X,Y,Z DDP 
360 PARTIE={ >LA 


370 SYHBOL AFTER 199:ENT 1,121,1,2: DCF 
ENV 1,1,15,1,9,-1,4,5,0,1 

380 DEF FN ECR(L,C)=TEST((16#L)-9, ( >PL 
(25-C)#16)+7) 

390 SYHBOL 200,60,36,60, 255,60, 60,3 DFE 
6,102 

400 SYMBOL 201,255, 129,66,60,60,66, >HD 
129, 255 é 

410 SYHBOL 202,255, 129, 255, 129,255, ML 
129,255, 129 

420 SYHBOL 203, 28,62, 107,107,127,12 >HD 


7,85,85 
430 SYHBOL 204, 189, 165, 126,60,60,60 >HG 
,36, 195 

440 SYHBOL 205, 153,90,60,255,255,60 HZ 
,90,153 

450 SYHBOL 206,0,0,6,9, 249, 166,160, CA 
0 

460 SYHBOL 207,255, 170, 170,170,170, >MR 
170,170, 170 

470 SYHBOL 208,170, 170,170, 170,170, 
170,170, 255 

480 SYHBOL 209,255, 171,175,169,177, MH 
177,191, 191 

490 SYHBOL 210,161,177,185,175,171, DM 
170,170, 255 

500 SYHBOL 211,255, 213, 245, 149,141, HN 
141,253, 253 

510 SYHBOL 212,133,141,157,245,213, DKL 
85,85, 255 

520 SYHBOL 213,255,85,85,85,85,85,8 >FH 
5,85 

530 SYHBOL 214,85,85,85,85,85,85,85 >FK 
,255 

540 SYMBOL 215,255, 129, 195, 189,189, MP 


V 


195, 129,255 

550 SYHBOL 216, 24,36, 25,255,152,60, >GH 
126, 36 

560 EN=400:EN1=400:CLE=0:BORDER 0:5 >PN 
=0:G0TO 630 

570 EN=350:EN1:350:G070 630 D 
580 EN=250:EN1=250:G0T0 630 WL 
590 EN=150:EN1=150:G0T0 630 >K 
600 EN=100:EN1=100:G0T0 630 »xvQ 
610 EN=70:EN1=70:G0T0 630 >UD 
620 EN=40:EN1=40:G0T0 630 »TG 
630 GOSUB 1200 >PD 


640 1=3:Y=23:RESTORE 1610:FO0R 1=1 T >ED 
05 

650 READ X(1),Y(1):LOCATE XC1),YC1) >DR 
PEN 2:PRINT CHR#(203); 


660 NEXT 1:PEN 1 HA 
670 ! >TD 
680 * ### Boucle Principale ### TE 
690 >TF 
700 1F FD=1 THEN FD-0:G0T0 790 JAY 
710 V=CY-7)/4:1F V<1 THEN V=1 >4H 
720 FOR 1=V TO V+1 >LJ 


730 IF RND>0.8 THEN GOTO 760 ELSE L >FH 
OCATE X(1),YC1):1F FN ECR(X(I),Y(1) 
-1)O00 THEN PRINT CHR$(202) ;ELSE PR 
INT""; 

740 XCH)=XC1)+(XCH))X)-CXCT) CH) LOC BV 
ATE 1(1),YC1):PEN 2:PRINT CHR$(203) 
:PEN 1 

750 IF X(1)=1 AND Y(1)=Y THEN IF EN >IZ 





>20 THEN EN-EN-10:SOUND 1,200,0,3, 1 
,:WHILE 5Q(1)>127:VEND:FD=1:GO0T0 7 

90 ELSE GOTO 1050 

760 NEXT 1 >PB 
770 IF INKEY(9)=0 OR INKEY(76):0 T DUU 
HEN IF X=15 AND Y=3 AND C=0 THEN GO 

SUB 1650:ELSE GOSUB 930 

780 1F INKEY(66)=0 THEN STOP Ju 
790 IF INKEY(0)=0 OR INKEY(72)=0 TH >JK 
EN IF FN ECR(X,Y-1)00 THEN Y=Y-4:L 
OCATE X,Y+4:PRINT CHR (202) :EN=EN-4 
:GOTO 830 ELSE GOTO 830 

800 IF INKEY(1)=0 OR INKEY(75)=0 TH DRF 
EN IF Y=3 AND X:15 THEN 1-1 :ELSE 

IF 138 THEN 1-1 ELSE X=1+1:5=5+1:E 
N=EN-1:LOCATE X-1,Y:1F FN ECR(X-1,Y 
-1)C0 THEN PRINT CHR#(202) : :GOTO 8 

30 ELSE PRINT * *::G0T0 830 

810 IF INKEY(2)=0 OR INKEY(73)=0 TH >YG 
EN 1F FN ECR(X,Y+3)C0 AND Y{23 THE 

N Y=Y+4:LOCATE XL, Y-4:PRINT " "::G0T 

0 830 ELSE GOTO 830 

820 IF INKEY(8)=0 OR INKEY(74)=0 TH >UJ 
EN IF Y=3 AND 1-15 THEN J=1: ELSE | 

F 13 THEN X-X ELSE 1=X-1:5=5+1:EN- 
EN-1:LOCATE 1#1,Y:1F FN ECR(X+1,Y-1 
)C0 THEN PRINT CHR#(202); ELSE PRI 
NT""; 

830 LOCATE X,Y:PRINT CHR$(200);  2F 
840 LOCATE 7,1:PEN 2:PRINT USING *# HZ 
BH"; S:LOCATE 33,1:PRINT USING "#4 
AM;EN:PEN 1 

850 IF EN-0 THEN SOUND 1,284,100,7, DER 
,1:WHILE SQ(1)>127:WEND:GOSUB 1900: 
GOTO 1070 

860 CALL &BB03:G0T0 700 >QH 
870 FOR 1=1 TO S:LOCATE XI), YCI):1 DL 
F FN ECR(X(1),Y(1)-1)C30 THEN PRINT 
CHRS(202); ELSE PRINT " *; 


880 NEXT 1! PE 
890 GOTO 640 >AD 
900 ? >RK 
910 ? ### SAUT #44 TA 
920 ? >TB 


930 LOCATE 1, Y:PRINT " ";:LOCATE 1, DAD 
Y-1:PRINT CHRS (204); 

940 ON FN ECR(X,Y-2)+1 GOTO 950,960 >JD 
970,980 

950 EN=EN-1:SOUND 1,80, 10,7:G0T0 10 >EH 
00 

960 EN=EN-1:SOUND 1,80, 10,7:LOCATE  )GT 
1,Y-1:PRINT CHRS(202) ; :LOCATE X,Y:P 
RINT CHR$(200) ;:GOTO 1010 

970 EN=EN4S0:ENT 2,100,-10,1:SOUND DHL 
1,478,50, 7, ,2:LOCATE X,Y-2:PRINT" " 





10 


::GO0T0 1000 

980 LOCATE X,Y-2:PRINT * *; JVC 
990 S=S+40:CLE=CLE +1 :SOUND 1,200, 15 >TY 
7: SOUND 1,360, 15,7:LOCATE 31,3:PEN 
2:PRINT CLE:PEN 1:C=C-1::1F C=0 TH 

EN GOSUB 1650:ELSE GOTO 1000 

1000 LOCATE X,Y-1:PRINT " "::LOCATE >CY 
X,Y:PRINT CHR$(200) ; : 


1010 RETURN >EF 
1020 ? )IF 
1030 * ##* DEVORE ##3 Y1G 
1040 )IH 


1050 SOUND 1,424,100,7,,1:FO0R u=0 T >AN 
0 2500:NEXT:G0SUB 1900 
1060 WHILE SQ(1)>127:WEND UK 
1070 IF ENC20 THEN EN-ENI >TM 
1080 LOCATE 1,Y:1F FN ECR(A,Y-1)C0 >VZ 
THEN PRINT CHR$(202); ELSE PRINT " 
LP 

, 
1090 FOR A=0 TO 3000:NEXT A:GO0TO 11 >CG 
20 


1100 ? )IE 
1110 * ### PARTIE PERDUE ### >IF 
1120 ? >1G 
1130 MODE 1: BORDER 1:1INK 1,24:PEN PJ 
1:LOCATE 2,5: 

1140 PRINT "VOTRE SCORE FINAL EST D >LL 
E:":5 


1150 PRINT:PRINT:PRINT:PRINT:PRINT" >EC 
VOUS AVEZ ECHOUE AU TABLEAU" ;PARTIE 


1160 IF s>record THEN record=s >2M 
1170 PRINT:PRINT:PRINT:PRINT:PRINT" >CA 
RECORD: " ;record:PRINT:PRINT:PRINT:P 
RINT:PRINT "VOULEZ-VOUS REJOUER ? ( 
O/N):"; 

1180 IF INKEY(34)=0 THEN 350 ELSE I >GH 
F INKEY(46)=0 THEN CALL &BB03:G0T0 


1970 ELSE 1180 
1190 ? > 
1200 ? ### TRACE DU JEU ### )IF 


1210 MODE 1:1INK 0,0:BORDER O:INK 1, >GN 
24:LOCATE 14,12:PEN 1:PRINT'PREPARE 
Z-VOUS" : 

1220 SOUND 1,478,13,7:SOUND 1,0,1:S 
OUND 1,478,13,7:SOUND 1,379, 13, 7:50 
UND 1,478,13,7:SOUND 1,379, 13, 7: SOU 
ND 1,319,13, 7:SOUND 1,379, 13, 7 : SOUN 
D 1,319,13,7:SOUND 1,239, 70,7:FO0R A 
=0 TO 3500:NEXT 

1230 HODE 1:1NK O,1:1INK 1,1:INK 2,1 DRJ 
:INK 3,1:PAPER 0 

1240 RESTORE 1490:PEN 1 >RA 
1250 FOR 1=8 TO 24 STEP 4:FO0R J=2 T >CA 
0 39 


LA 


IN 


1260 LOCATE J,1:PRINT CHR$(201); AL 
1270 NEXT J:NEXT 1! >HR 
1280 j=1:FOR i=5 TO 24:LOCATE j,1:P >AF 
RINT CHR$(215):NEXT 1 

1290 j=40:FOR i=5 TO 24:LOCATE j,i: >BJ 
PRINT CHR$(215):NEXT ji 

1300 FOR i=1 TO 40:j=4:LOCATE i,i:P >AC 
RINT CHR$(201):NEXT i 

1310 LOCATE 18,2:PRINT CHR$(207);CH >HT 
R# (209) ;CHR# (211) ;CHR$ (213) 

1320 LOCATE 18,3:PRINT CHR$(208) ;CH >HP 
R$(210) ;CHRS (212) ;CHRS# (214) 

1330 FOR 1=1 TO 8:READ 1,Y >TH 
1340 FOR J=0 TO 2:LOCATE X,Y+J:PRIN PU 
T CHR$ (202); 

1350 NEXT J:NEXT 1 >Q 
1360 PEN 2:FOR 1=1 TO 5:READ 1,Y:LO >PC 
CATE X,Y:PRINT CHR#(205);:NEXT I 

1370 PEN 3:FOR 1=1 TO 8:READ 1,Y:LO >PJ 
CATE X,Y:PRINT CHRS(206) ; :NEXT 1! 

1380 LOCATE 1,1:PEN 2:PRINT "SCORE: >WF 
"USING "#6444";:5: 

1390 LOCATE 25,1:PEN 2:PRINT "ENERG >KH 
IE: "ss 

1400 LOCATE 1,3:PRINT'NIVEAU: " ;PA >HB 
RTIE 

1410 LOCATE 25,3:PRINT"CLEFS:";CLE: >EB 


1420 LOCATE 2,25:PRINT" (UTILISEZ LE >nX 
JOYSTICK OU LES FLECHES) 


1430 C=8 WF 
1440 INK 1,15:1INK 2,24:INK 3,18 >IA 
1450 RETURN >FD 


1460 ? >) 
1470 * ### COORDONNEES ECHELLES ##4 )YE 


1480 ? >YF 
1490 DATA 15,5, 7,9, 20, 13,30, 13,9, 17 >TD 
,24,17,15,21,31,21 

1500 ? L 
1510 * su» COORDONNEES ENERGIE #42 >]K 


1520 ! )YA 
1530 DATA 7,5,30,9,7,13,33,17,16,21 DAY 


1540 ! )YC 
1550 ?* ### COORDONNEES RECOMPENSES >YD 
“#4 

1560 ? )YE 
1570 DATA 18,5,15,9,10,13,31,13,14, >UH 
17,29,17,6,21,22,21 

1580 TG 
1590 * ##x COORDONNEES INITIALES D >YH 


ES HONSTRES ### 


1600 ? >K 


1610 DATA 36,7,3,11,36,15,3,19,36,2 )BJ 
3 


1620 >YB 
1630 *  x## NIVEAU TERMINE ##2 )C 
1640 > 


1650 LOCATE 15,1:1NK 3,1,26:PEN 3:P FN 
RINT CHRS(206)::1F FN ECR(X, Y-2)00 
THEN GOTO 1660:ELSE RETURN 

1660 LOCATE 1,Y:PRINT" ":;:LOCATE X, >GU 
Y-1:PRINT CHRS (204) ; :LOCATE 1, Y-2:P 
RINT® ";:LOCATE L,Ÿ-1:PRINT" "3; :LOC 
ATE 1,Y:PEN 1:PRINT CHR# (200) ; 

1670 INK 3,6,26:PEN 3:LOCATE 18,2:P 
RINT CHR (207) ;CHRS (209) ;CHRS (211) ; 
CHR (213) 

1680 LOCATE 18,3:PRINT CHR$(208) :CH 
RS (210) ;CHRS#(212) ;CHRS(214):PEN 1:L 
OCATE 16,3:PRINT CHRS (216) 

1690 s=3+500:LOCATE 7,1:PEN 2:PRINT DUJ 
USING "#4#4";S:FOR a=0 TO 3000:NE 

ir 


VV 


FK 


LA 


FC 


1700 LOCATE 11,12:PEN 3:PRINT" NIV DEE 
EAU SUPERIEUR... ":LOCATE 11,11:PR 
INT" *:LOCATE 
11,13:PRINT" 


*:SOUND 1,319, 70, 7:SOUND 1,426, 10, 
T:SOUND 1,0,2:SOUND 1,426, 10, 7:SOUN 

D 1,0,2:SOUND 1,426,10, 7:SOUND 1,0, 

2 

1710 SOUND 1,426,10,7:SOUND 1,0,2:S >KH 
OUND 1,426, 10,7:SOUND 1,0,2:SOUND 1 
426,12, 7:SOUND 1,506, 12, 7: SOUND 1, 
426,20, 7:SOUND 1,319,80,7:FOR a=0 T 

0 2000:NEXT:PARTIE=PARTIE+1 :CLE=0 


1720 ! YC 
1730 * s## DIFFERENTS NIVEAUX ### »YD 
1740 ! )YE 


1750 IF PARTIE=2 THEN FOR A=0 TO 60 >UH 
00:NEXT :GO0TO 570 
1760 IF PARTIE=3 THEN FOR A=0 TO 60 >UL 
00:NEXT :GOTO 580 
1770 IF PARTIE=4 THEN FOR A=0 TO 60 >UP 
00:NEXT :GOTO 590 
1780 IF PARTIE=S THEN FOR A=0 TO 60 >UH 
00:NEXT :GOTO 600 
1790 IF PARTIE=6 THEN FOR A=0 TO 60 DUL 
00:NEXT :GO0TO 610 
1800 1F PARTIE=7 THEN FOR A=0 TO 60 DUE 
00:NEXT :GOTO 620 


1810 ? )YC 
1820 * …### PARTIE GAGNEE ### )YD 
1830 ’ )YE 
1840 HODE 2:1NK 0,0:INK 1,24:PEN 1 )ZA 
1850 LOCATE 36,1:PRINT"BRAVO. ..":PR DUC 
INT:PRINT:PRINT:PRINT:PRINT" Tue 


11 


3 vraisent un as JUMPY JOE... Tu as 
reuss1 a delivrer les sept filles. 
..":PRINT:PRINT:PRINT" 

Encore bravo! 
1860 IF s>record THEN record=s >2D 
1870 PRINT:PRINT:PRINT "* 02 
VOTRE SCORE FINAL EST DE:";S:PRINT: 
PRINT:PRINT® RECORD :";rec 
ord:PRINT:PRINT:PRINT" vo 
ULEZ-VOUS REJOUER ? (O/N):"; 
1880 SOUND 1,402,90, 7:SOUND 1,451,2 >LY 
0, 7:SOUND 1,478,40, 7:SOUND 1,402,20 
+ 7:SOUND 1,301,40,7:SOUND 1,268, 20, 
7:SOUND 1,239, 100, 7: SOUND 1,301,60, 
7 
1890 IF INKEY(34)=0 THEN 350 ELSE 1 >GE 
F INKEY(46)=0 THEN CALL &BB03:G0TO 


1970 ELSE 1890 
1900 ? #2 MORT #4 »YC 
1910 >" 


1920 CLS:BORDER O:FOR i=19 TO 21:F0 )CJ 
R j=2 TO 19:LOCATE 1, j:INK 0,0: 1K 
1,6:PEN 1:PRINT"2":NEXT:NEXT:FOR 1= 
11 TO 29:FOR j=5 TO 7:LOCATE 1, j:PR 
INT*a":NEXT:NEXT:LOCATE 16,6: INK 2, 
24:PEN 2:PRINT"JUMPY JOE" 

1930 INK 3,6,24:PEN 3:LOCATE 13, 22: 
PRINT"VOUS AVEZ PERDU..." 

1940 SOUND 1,478, 100, 7:SOUND 1,0,5: 
SOUND 1,478,80,7:SOUND 1,0, 5: SOUND 
1,478, 20, 7:SOUND 1,0,3:SOUND 1,478, 
100,7:SOUND 1,0,5:SOUND 1, 402, 70, 7: 
SOUND 1,0,5:SOUND 1,426, 20, 7 :SOUND 
1,0,5:SOUND 1,426, 80,7 

1950 SOUND 1,478,20,7:SOUND 1,0,5:5 >00 
OUND 1,478,80, 7:SOUND 1,0,5:SOUND 1 
,506,20,7:SOUND 1,0,5:S0UND 1,478, 1 


V 


HA 


h.4 


Rz 


00, 7:RETURN 
1960 ? 1] 
1970 'uxtus AU REVOIR #ta2 > 
1980 ? >ZA 


1990 CLS:HODE 0:INK 0,24:BORDER 24: )EB 
INK 1,6,24:LOCATE 6,13:PRINT"AU REV 
O8..." 

2000 SOUND 1,284,60, 7:SOUND 1,319,9 >KF 
0,7:SOUND 1,379, 30, 7:SOUND 1,0, 3:50 
UND 1,379,60,7:SOUND 1,478, 60, 7:S0U 

ND 1,426,90,7:SOUND 1,478, 30, 7:SOUN 

D 1,426,60,7 

2010 SOUND 1,379,30,7:SOUND 1,426,3 )EL 

0,7:SOUND 1,478,90,7:SOUND 1,568, 30 
,T:SOUND 1,0,3:SOUND 1,568, 60, 7:S0U 

ND 1,638,60, 7:SOUND 1,478, 120, 7:FOR 
A0 TO 6000:NEXT:MODE 2:1NK O,1:1N 

K 1,24:BORDER 1:END 











Bernard POYAU 
Valable pour CPC 464, 
664 et 6128 


Ce programme de calendrier 
perpétuel est valable pour 
la période du Ier janvier 1601 
au 31 décembre 2399. 


Il propose 4 options : 


—La première permet de connaître le 
JOUR DE LA SEMAINE correspondant 
à n'importe quelle date. 


— La seconde permet de savoir combien 
de JOURS se sont écoulés ENTRE DEUX 
DATES. 


— La troisième permet de connaître la DA- 
TE DES trois FETES MOBILES (Pâques, 
Ascension et Pentecôte). 


— La dernière, enfin, offre le CALEN- 
DRIER de l'année, à l'écran ou sur im- 
primante au choix (testé sur DMP 2000). 


A ce sujet, vous trouverez en prime, 
aux lignes 2600 à 2860 un sous-program- 
me de téléchargement permettant à l'im- 
primante d'imprimer les caractères d'un 
tableau. 


Les caractères redéfinis sont : 


chr$(0) : 
chr$(4) : 


chr$(1) : — 


chr$(5) : 
chr$(29) : 





: UTILITAIRE 


ALENDRIER 





Ce sous-programme pourra être repris 
tel que dans vos propres programmes. Il 
est nécessaire d'imprimer avec un inter- 
ligne de 7/72 pouce pour que les caractères 
se touchent. 


En ce qui concerne l'ensemble du pro- 
gramme il faut noter que la numérotation 
n'est pas continue (Attention en saisie AU- 
TO). Les sauts se situent au niveau des 
REM. Il m'a semblé préférable de faire 
commencer les différents sous-program- 


chr$(3) : 


chr$(28) : 
chr$(31) : 





mes à partir de lignes en 100, de façon à 
diminuer les risques d'erreur de saisie (il 
est facile de saisir un GOSUB 3620 et il 
faut savoir que CE TYPE D'ERREUR 
N'EST PAS DETECTABLE PAR L'AN- 
TI-ERREURS. Il vaut donc mieux saisir 
un GOSUB 3200). 


Tous les branchements se font à la 
première ligne utile des sous-programmes. 
Les lignes de REM sont donc facultatives. 


Enfin la plupart des codes de contrôle 
utilisés ont été placés dans des variables 
(il est plus simple de taper IV$ que 
CHRS$(24) par exemple..…). 


Bonne frappe. 








FEVRIER 


LU MA ME JE VE SA DI 







12 135 14 15 16 
19 20 21 22 23 24 25 
26 27 28 29 30 











JUIN 








ME JE VE SA DI 








LU MA ME JE VE 












4 5 6 7 8 
9 10 11 12 13 14 15 
16 17 18 19 20 21 22 
25 26 27 28 29 





11 12 13 14 
18 19 20 21 
25 26 27 28 








JUILLET 








LU MA ME JE VE SA 
2 3 
S 6 7 8 910 
12 13 14 15 16 17 
19 20 21 22 23 24 
26 27 28 29 350 





PAQUES : 15 AVRIL 


ASCENSION : 24 MAI 








13 14 15 16 
20 21 22 235 
27 28 29 30 





DECEMBRE 
LU MA ME JE VE SA DI 


Le 
53 4 5 6 7 8 9 


11 12 13 14 15 16 
18 19 20 21 22 23 
25 26 27 28 29 50 














FENTECOTE : 3 JUIN 
10 ’ CALENDRIER >LA | HAINE":N$(9)="NOMBRE DE JOURS ENTRE 
20 ? >LB 2 DATES" :N$(11)="DATE DES FETES M0 
30 " Bernard POYAU - Octobre 1989 )LC | BILES":N$(13)="CALENDRIER" :N$(15)=" 
40 >LD | FIN" 
50 ? )LE | 150 ? >RG 
60 INITIALISATIONS >LF | 160 ’ >RH 
70! >LG | 170 )RJ 
80 INK 0,0: INK 1,26:BORDER 0:MODE 1 >BB 180 ? MENU ============-=====2222222 )QK 
90 DIH M$(12):FOR X=1 TO 12:READ M$ DLQ | ===: 
CD :NEXT X 190 ? )TA 
100 DATA JANVIER, FEVRIER, MARS, AVRIL DRA | 200 MODE 1 >HA 
HAL, JUIN, JUILLET, AOÛT, SEPTEMBRE, OC 210 PRINT TAB(15)"CALENDRIER";TAB(1 >XM 
TOBRE, NOVEMBRE, DECENBRE 5)STRINGS (10, T9) 


110 FOR 1=0 TO 6:READ J$(X):NEXT 1 AK 
120 DATA LUNDI, MARDI , MERCREDI , JEUDI DNJ 
» VENDREDI , SAMEDI , DIMANCHE 

130 EL$=-CHR$ (18) :EF$=CHR$ (20) :H#$=CH PT 
R#(11) : IV$=CHRS (24) :T$=CHRS (154) 

140 DIM N$(15):N$(7)="JOUR DE LA SE >GB 





220 LOCATE 9,7:PRINT IV$:N$(7);IV$ CT. 
230 FOR 1=9 TO 15 STEP 2:LOCATE 9,1 >IT 
:PRINT N$(X) :NEXT X 

240 LOCATE 9,24:PRINT "Choix avec " >JG 
sCHRS(241);" ou ";CHR$(240);" et C0 
PY":1=7 
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250 GOSUB 3300 PE 
260 IF R$=CHR$(241) THEN LOCATE 9,1 >LE 
:PRINT N$(1):1=1+2 ELSE GOTO 280 

270 IF 1=17 THEN 1=7:G0T0 300 ELSE >HH 
GOTO 300 

280 1F R$=CHR$(240) THEN LOCATE 9,1 >LB 
:PRINT N$(1):1=1-2 ELSE GOTO 310 
290 IF 1=5 THEN 1=15 

300 LOCATE 9,1:PRINT IVS;N#C1);1V$ CF 


310 IF INKEY(9)=0 THEN 340 >TG 
320 FOR TP=0 TO 200:NEXT TP >R 
330 GOTO 250 >YK 
340 CH=1/2-2.5:0N CH GOTO 500, 700,1 >NK 
000, 1500, 2500 

470 TB 
480 * JOUR DE LA SEMAINE ========== }TC 
490 ? >TD 
500 HODE 1:PRINT TAB(112N#(7) ;TAB(1 DVE 
1)STRINGS (18,79) 

510 AN=0:L=10:G0SUB 2900 >TR 
520 Q=INT(NJ/7)#7:R=NJ-Q JUN 
530 LOCATE 1,3:PRINT EF$ >TH 


540 LOCATE 1,12:PRINT "Le";J;:1F J= »YB 
1 THEN PRINT ‘er ‘"; 

550 PRINT H$(H);A;"est un ";J4(R) 
560 LOCATE 20,25:PRINT “Autre jour >PB 
?(0/N)" 


570 GOSUB 3300 >PK 
580 IF R$="0" THEN 500 NV 
580 IF R$="N" THEN 200 >NR 
600 GOTO 570 ZE 
670 ? >TD 
680 ? NOMBRE DE JOURS ENTRE 2 DATES >TE 
680 ! >TF 


700 MODE 1:PRINT TAB(S)N$(9);TAB(S) >UH 

STRINGS(29,T$) 

710 LOCATE 1,5:PRINT "Preniere date >LE 
.! 

720 AN=0:L=7:G0SUB 2900 

730 Q=NJ:A1=A:M1=M:J1=J 

740 LOCATE 1,15:PRINT "Deuxiene dat >HQ 

e:! 

750 AN=0:L=17:G0SUB 2900 >TF 

760 R=NJ:1F R)Q THEN A2=A:M2=M:J2=J >ZC 
ELSE A2=A1:H2=M1:32=J1:A1=A:M1=M:J 

1=J 

770 DIF=ABS(R-Q) >LU 

780 LOCATE 1,3:PRINT EF$ >TQ 

780 LOCATE 1,12:PRINT IV$;"I1 y a"; >GQ 

DIF;" jours"; IV$:PRINT 

800 PRINT "entre le";J1;:1F J1=1 TH >WY 

EN PRINT ‘er "; 

810 PRINT M$(H1);A1:PRINT TAB(4)'et >TL 


le":J2;:1F J2=1 THEN PRINT "er ‘; 
820 PRINT H$(H2) ;A2 
830 LOCATE 20,25:PRINT "Autre calcu 
1 ?(0/N)" 
840 GOSUB 3300 
850 IF R$="0" THEN 700 
860 IF R$="N" THEN 200 
870 GOTO 840 
970 ? 
980 * DATE DES FETES MOBILES 


990 , 

1000 MODE 1:PRINT TAB(B)N$(11) ; TAB( 

9)STRING$ (22, T$) 

1010 AN=1:L=12:G0SUB 2900 

1020 1F A=1954 THEN Q=18:M09="AVRIL 
":GO0TO 1100 

1030 IF A=1981 THEN Q=19:M0$="AVRIL 
“:G0TO 1100 

1040 ’ Regle de Gauss 

1050 B=A MOD 19:D=A MOD 4:E=A MOD 7 
1060 IF A<2100 THEN K=5 ELSE K=6 
1070 F=(19#B+24) MOD 30:G=(2#D+44E+ 
6*F+K) MOD 7 

1080 Q=22+F+G 

1090 1F Q<32 THEN MQ$="HARS" ELSE Q 
=F+G-9:NQ$="AVRIL" 

1100 5=Q+39:H5$="MAl" 

1110 IF MQ$="HARS" THEN S=S-61:G0T0 
1130 

1120 IF MQ$="AVRIL" AND 561 THEN S 
=S-61:HS$="JUIN" ELSE S=S-30 

1130 T=S+10:NT$="MAI" 

1140 IF T>31 THEN T=T-31:MT$="JUIN" 


1150 IF IMP=1 THEN RETURN 

1160 LOCATE 1,3:PRINT EF$ 

1170 LOCATE 1,8:PRINT "EN" ;A:PRINT: 
PRINT 

1180 PRINT "PAQUES  :";:PRINT USI 
NG "#44 ";Q;:PRINT HQ$:PRINT 

1190 PRINT "ASCENSION :";:PRINT USI 
NG "#44 ";S;:PRINT HS$:PRINT 

1200 PRINT "PENTECOTE :";:PRINT USI 
NG “ER ";T;:PRINT HTS$ 

1210 LOCATE 20,25:PRINT "Autre anne 
e ?(0/N)°" 

1220 GOSUB 3300 

1230 IF R$="0" THEN 1000 

1240 IF R$="N" THEN 200 

1250 GOTO 1220 
1470 ? 

1480 * CALENDRIER 


1490 ? 


ZZZZZZzZzZz==z=zzzzE 


NZ 
>RZ 


>PK 
Ji 
>NR 
>AD 
>TG 
>TH 


TJ 
VB 


>IH 
>2G 
)LZ 
>LH 


| 1730 FOR X=22 TO 438 STEP 208:F0R Y >RG 








1500 HODE 1:PRINT TAB(15)N$(13);TAB >IA 
(15)STRINGS (10, T$) | 
1510 AN=1:L=12:G0SUB 2900 )TY 
1520 PRINT:PRINT TAB(15)1V$;"Un ins a | 
tant...";[V$:DIM 5$(12,6) 
1530 FOR X=1 TO 12:M=1:J=1:1F H=4 O >YP 
R H=6 OR M=9 OR M=11 THEN JM=30 ELS 

E IF M=2 AND JF=28 THEN JM=28 ELSE 

IF M=2 AND JF=29 THEN JM=29 ELSE JH 

=31 

1540 GOSUB 3030:Q=INT(NJ/7)#7:R=NJ- >EH 
Q 

1550 S$(X,1)=SPACES$(34R) :JJ=0:FOR Y >RA 
ER TO 6:)J=JJ+1:5$(X,1)=S$(X,1)+" " 
+STR$(JJ):NEXT Y 

1560 FOR Y=2 TO 6:FO0R 2-0 TO 6:JJ=J 
J#1 

1570 IF JJ>JH THEN Z-6:Y=7:G0T0 159 >DA 
0 

1580 1F JJ<10 THEN S$(X,Y)=S$(X,Y)+ 
" "4STR$(JJ) ELSE S$(X,Y)=S$(X,Y)+S 
TR$(JJ) 

1590 NEXT Z,Y,X:U$="LU MA ME JE VE 
SA DI" 

1600 LOCATE 1,3:PRINT EF$:LOCATE 15 DWV 
,12:PRINT SECRAN":PRINT:PRINT TAB(I 
2)"ou IMPRIMANTE" :LOCATE 15,24:PRIN 

T “Votre choix (E/1)" 


DT 


>CE 


>KU 


1610 GOSUB 3300 WG 
1620 IF R$="E" THEN 1700 >QR 
1630 IF R$="1" THEN 2000 >Q 
1640 GOTO 1610 KG 
1680 ? >YH 
1690 ’Affichage a l'ecran DA 
1700 H=0:T=1 >CB 
1710 MODE 2:A$=STR$(A) :AN$="" JUN 


1720 FOR 1=2 TO LENCA$):ANS=ANS+#HID >VC 
$CA$,X,1)+" ":NEXT X:PRINT TAB(37)A 
N$ 


=7 TO 199 STEP 192 

1740 MOVE X,Y:DRAWR 179,0:DRAUR 0,1 >JC 
76:DRAWR -179,0:DRAUR 0, -176 

1750 MOVE X,Y+112:DRAUR 179,0:MO0VE >YX 
1,Y+144:DRAVR 179,0 

1760 NEXT Y,1 >PC 
1770 FOR Y=3 TO 15 STEP 12:FO0R X=4 UD 
TO 56 STEP 26:H=H+#1 

1780 LOCATE 1I,Y:PRINT SPACES((22-LE DEV 
NCHS(M)))/2);M$CH):LOCATE X+1,Y+2:P 
RINT U$ 

1790 NEXT X,Y >PF 
1800 WINDOW #1,4,25,7,12:WINDOW #2, >LQ 
30,51,7,12:WINDOW #3,56,77,7,12 





1810 WINDOW #4,4,25,19,24:WINDON #5 )QL 
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,30,51,19,24:WINDOW 86,56, 77,19,24 


1820 FOR X=T TO T+5:FO0R Y=1 TO 6 YU 
1830 1F T=1 THEN W=X ELSE W=1-6 > 
1840 PRINT 8W,5$(X,Y) )0E 
1850 NEIT Y,1:1F T=7 THEN 1880 )12 


1860 LOCATE 65,1:PRINT [V$; "Suite : >FE 
ENTER" ; IV$:G0SUB 3300 

1870 H=6:7T=7:G0T0 1710 >QQ 
1880 LOCATE 65,1:PRINT IV$:;"Retour >GP 
: ENTER"; 1V$:GOSUB 3300 

1890 HODE 1:PRINT TAB(15)N$(13);TAB >YE 
(15)STRING#(10,T$) 

1900 ERASE S$:LOCATE 9,12:PRINT "Au >JZ 
tre calendrier ?(0/N)" 


1910 GOSUB 3300 JW 
1920 IF R$="0" THEN 1500 >Q 
1930 IF R$="N" THEN 200 >PE 
1940 GOTO 1910 >NC 
1980 ? >ZA 
1990 ’ Impression ----------------- >ZB 


2000 LOCATE 1,3:PRINT EF$:LOCATE 10 
,10:PRINT "QUALITE : Epreuve" :PRINT 
TAB(20) "Normale" :PRINT TAB(20)"Sup 

erieure" 

2010 LOCATE 20,24:PRINT "Votre choi 
x 2(E/N/S)" 

2020 GOSUB 3300 

2030 1F R$="E" OR R$="N" OR R$="5" 
THEN 1$=R$:G0T0 2040 ELSE 2020 

2040 LOCATE 1,3:PRINT EF$:LOCATE 10 
,10:PRINT "PREPAREZ L'’IHPRIMANTE... 
":LOCATE 10,13:PRINT "...puis €ÆNTE 
Bb" 

2050 GOSUB 3300:E$=CHR$ (27) 

2060 PRINT 88,E$:"à":' Reinitialisa 
tion 

2070 GOSUB 2600 

2080 PRINT 88,E$;"U";CHR$#(1):" Impr 
ession unidirectionnelle 

2090 IF 1$="E" THEN 2120 

2100 IF 1$="N" THEN PRINT 88,E$;"E" 
:’ Iapression en gras 

2110 IF 1$="S" THEN PRINT #8,E$;"E" 
:E$;"G":" Iapression en gras + doub 
le frappe 

2120 PRINT #8,E$;CHR$(14) ; TAB(B) "CA 
LENDRIER DE L'ANNEE";A:E$;CHR$ (20): 
PRINT 88 

2130 PRINT #8,E$;"1":" Interligne d >NR 
e 7/72 

2140 HS=STRINGS(22,CHR$(1)):C$=" 
+CHRS(4)+SPACES(22)+CHR$ (4) :B$=C$+C 
$+C$ 

2150 FOR X=1 TO 10 STEP 3 


>GL 


YU 


>0 


2160 FOR Y=0 TO 2:PRINT #8," ";CHR 
$(0):;H$;CHRS$(3):;:NEXT Y:PRINT 88,"" 
2170 FOR Y=0 TO 2:EV$=SPACES ((22-LE 

NCH$(X+Y)))/2):EP$=SPACES (22-LEN(EV 
$)-LENCH$#(X+Y))) 

* 2180 PRINT #8," ";CHR$(4) ;EV$;M$(X 
+Y);EP$;CHR$(4);:NEXT Y:PRINT 88,°" 
2190 FOR Y=0 TO 2:PRINT 88," ";CHR 
$(5);H$;CHR$ (28) ; :NEXT Y:PRINT #8," 
" 


2200 FOR Y=0 TO 2:PRINT 88," ";CHR 
$(4)5;" ";U$;" ";CHRS (4); :NEXT Y:PRI 
NT #8,"" 

2210 FOR Y=-0 TO 2:PRINT 88," ";CHR 
#(5);H8;CHRS (28) ;:NEIT Y:PRINT 48," 
" 

‘2220 FOR Z=1 TO 6:FOR Y=0 TO 2 
2230 IF LEN(S$(X+Y,Z))C22 THEN S$(X 
+Y,2)=S$(X+Y,Z)+SPACES (22-LEN(S$(X+ 
Y,2))) 

2240 PRINT 88," 
);CHR$ (4); 

2250 NEXT Y:PRINT #8,"":1F Z(6 THEN 
PRINT #8,B$ 

2260 NEXT Z 

2270 FOR Y=0 TO 2:PRINT 88," ";CHR 
$(29):H8;CHR$(31) ;:NEXT Y:PRINT 88, 
LL] 

2280 PRINT 88 

2290 NEXT X 

2300 IHP=1:G0SUB 1040: IHP=0 

2310 PRINT #8,E9;"2":" Interligne d 
e 1/6 

2320 PRINT #8,TAB(5)"PAQUES  :";U 
SING "#48 ";Q;:PRINT 88,HQ$:PRINT # 
8 

2330 PRINT 88,TAB(5)"ASCENSION :";U 
SING "#44 ";S::PRINT 86,HS$:PRINT # 
8 

2340 PRINT #8,TAB(5)"PENTECOTE :";U 
SENG "### ";T;:PRINT 88,NT4 

2350 PRINT #8,CHR$(12):" Ejection f 
euille 

2360 PRINT #8,E$;"à":" Reinitialisa 
tion 

2370 GOTU iëgù 


":CHRS(4):5S8(X+Y,Z 


2490 ? 

2500 CALL 0 

2580 ? 

2590 ’ S/P Telechargement isprisant 
e 

2600 RESTORE 2760 


RE 


TT 


)BR 


TG 


NZ 
>DR 


>VH 


>JD 
)Q 
>PE 
NH 
)YF 
»YG 
>Yh 
NC 
>YH 
Del 


)LY 





æ 2610 D=0:F=6:G0SUB 2640 >RU 
2620 D=28:F=31:G0SUB 2640 )TC 
2630 GOTO 2730 >NA 
2640 FOR C=D TO F FE 


2650 PRINT #8,CHRS(27) ;CHR# (38) ;CHR >HU 
#00) ;CHR$(C) ;CHRS(C) ;CHR# (11) ; 


2660 FOR E=1 TO 11 >LF 
2670 READ N )TA 
2680 CAR$=CHR$(N) )LQ 


2690 PRINT #8,CAR$: >NB 
2700 NEIT E )VA 
2710 NEXT C >UK 
2720 RETURN FE 


2730 PRINT #8,CHR$(27) ;CHR#(37) ;CHR )PT 
$(1) ;CHR$ (0) 

2740 PRINT #8,CHR$(27) ;CHR$(73) ;CHR )FB 
$(1) 

2750 RETURN FH 
2760 DATA 0,0,0,0,31,0,16,0,16,0,16 >ZX 


| 2770 DATA 16,0,16,0,16,0,16,0,16,0, >BH 
16 

2780 DATA 16,0,16,0,31,0,16,0,16,0, >BF 
16 

2780 DATA 16,0,16,0,31,0,0,0,0,0,0 >2C 
2800 DATA 0,0,0,0,255,0,0,0,0,0,0  >YG 
2810 DATA 0,0,0,0,255,0,16,0,16,0,1 >AJ 
6 

2820 DATA 16,0,16,0,255,0,16,0,16,0 )CU 
16 

2830 DATA 16,0,16,0,255,0,0,0,0,0,0 >Z4 


2840 DATA 0,0,0,0,240,0,16,0,16,0,1 DAF 
6 

2850 DATA 16,0,16,0,240,0,16,0,16,0 >CQ 
,16 

2860 DATA 16,0,16,0,240,0,0,0,0,0,0 >ZT 


2870 ! 

2880 ? S/P intro date 
2890 ? 1B 
2800 LOCATE 1,L:INPUT "ANNEE ":K$:4 >YX 
=L:GOSUB 3200:1F ER=1 THEN 2900 ELS 

E AK 

b2910 IF A<1601 OR A>2399 THEN LOCAT >YZ 
E 1,24:PRINT CHR#(7); IVS; "ENTRE 160 

1 et 2399,SVP...";1V#:FOR TP=0 TO 1 
S00:NEXT TP:LOCATE 1,24:PRINT EL$:L 
OCATE 1,L:PRINT EL$:G0T0 2900 

2920 JF=28 )LG 
2830 IF A=2000 THEN JF=29:GO0T0 2960 >BR 





2940 IF A MOD 100-0 THEN 2960 JUN 
2950 IF A MOD 4-0 THEN JF=29 JUY 
2960 IF AN=1 THEN 3170 )PI 
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22970 LOCATE 1,L+2:INPUT *HOIS :K$ >DB 
:W=L+2:GOSUB 3200:1F ER=1 THEN 2970 
ELSE H=K 

2980 IF M1 OR M>12 THEN LOCATE 1,2 )FH 
4:PRINT CHRS(7) : IVS: "ENTRE 1 et 12, 
SUP...";IV$:FOR TP=0 TO 1500:NEXT T 
P:LOCATE 1,24:PRINT ELS:LOCATE 1,L+ 
2:PRINT EL$:GOTO 2970 

2990 LOCATE 1,L+4:INPUT "JOUR ":K$ 
:W=L+4:GO0SUB 3200:1F ER=1 THEN 2990 
ELSE J=K 

# 3000 IF J<1 OR J>31 THEN LOCATE 1,2 >FQ 

A:PRINT CHR$(7); IVS: "ENTRE 1 et 31, 

SVP...";IV$:FOR TP=0 TO 1500:NEXT T 

P:LOCATE 1,24:PRINT EL$:LOCATE 1,L+ 

4:PRINT EL$:GOTO 2990 

53010 IF (M-2 OR M=4 OR H=6 OR H-9 0 

R M=11) AND J=31 THEN LOCATE 1,24:P 

RINT CHRS(7);1V$:;"CE MOIS N’A PAS 3 

| 1 JOURS ...";IV#:FOR TP=0 TO 1500:N 
EXT TP:LOCATE 1,24:PRINT ELS:LOCATE 
1,L+4:PRINT EL$:GO0TO 2990 

e3020 IF M=2 AND JF=28 AND J=29 THEN >QL 
LOCATE 1,24:PRINT CHR$(7):IV$;A;N 
*EST PAS BISSEXTILE ...":1V$:FOR TP 
=0 TO 1500:NEXT TP:LOCATE 1,24:PRIN 
T EL$:LOCATE 1,L:PRINT EF$:GO0TO 290 
0 
3030 B=A-1601:D-3654B:E=INT(B/4):F= NE 
INT(B/100) 

3040 G=312(M-1):1F M3 THEN H=0 ELS DUU 
E H=INT(0.4#+2.3) 


>DQ 


3050 NJ=D+E-F+G-H+J-1 >PH 
3060 IF N>2 AND JF=29 THEN NJ=NJ+1 >AY 
3070 IF B»399 THEN NJ=NJ+1 >UD 
3080 RETURN >FE 
3170 ? >YD 
3180 ’S/P verif intro )YE 
3190 ’ >YF 


#3200 ER=0:FOR X=1 TO LEN(K#):1F MID >AX 
$CKS,X,1)€"0" OR HID$(KS,X,1)2"9% T 
HEN LOCATE 1,24:PRINT CHR$(7);1V$;" 
CHIFFRES, SVP..." ;IV$:FOR TP=0 TO 1 
S00:NEXT TP:LOCATE 1,24:PRINT EL$:L 
OCATE 1,W:PRINT EL$:ER=1:X=LEN(K$) 


3210 NEXT X WG 
3220 IF ER-=0 THEN K=VAL(K$) >uC 
3230 RETURN >FB 
3270 ’ )YE 
3280 ’S/P attente touche ---------- > YF 
3290 ’ >YG 


3300 R$=INKEY$:1F R$="" THEN 3300 E >UP 
LSE R$=UPPER$ (R$) 
3310 RETURN 





>FA 


10 GOTO 30: ’ TRICOLOPERATION TC 

20 SAVE "TRICOLO HA 

30 BORDER 3,9:1NK 0,13:INK 1,24,6:1 >QZ 

NK 2,0: INK 3,16 

40 MODE 1:PAPER O:PEN 1:CLS:LOCATE FC 

7,5:PRINT STRINGS (26, 4") 

50 FOR ij=6 TO 15:LOCATE 7,ij:PRINT DRA 
Mau: LOCATE 34,1):PRINT "t#":NEXT 

60 LOCATE 7,16:PRINT STRINGS(26, "2" )DJ 

) 

70 PEN 2:LOCATE 11,7:PRINT "TRICOLO >JY 

ROPERATION":LOCATE 11,10:PRINT "PAR 
Leon NEDRAG":LOCATE 11,13:PRINT 

"10 Mai 1989 

80 FOR 1k=6 TO 14 STEP 3:LOCATE 11, DUP 

ik:PEN 3:PRINT STRING#(17, 216) :NEXT 


90 LOCATE 13,19:PEN 2:PRINT "BON C >QF 
OURAGE !":LOCATE 13,20:PEN 1:PRINT 
STRING#(14,°4) 

100 LOCATE 2,22:PEN 2:PRINT "APPUYE >EN 
Z SUR ESPACE POUR CONTINUER" :PE 

N 1:LOCATE 2,23:PRINT STRINGS(37,*- 

*) 

110 * ### LA TRUITE d’aprés AMSTRAD >RC 
MAGAZINE et SCHUBERT 


120 ENV 1,2,2,7,1,0, 200 >Pk 
130 FOR k=1 TO 98:READ a,b )TA 
140 IF a=2 THEN v=0 ELSE v-9 jUY 
150 SOUND 4,a,b#3,v,1 >PB 
160 SOUND 2,a-1,b43,v, 1 QT 
170 SOUND 1,a,b#3,v, 1 >PA 


180 IF INKEY(47)=0 THEN 440 ELSE NE >DP 
1T 


190 DATA 358,8 N'a] 
200 DATA 268,8, 268,8, 213,8, 213,8, 26 >DG 
8,16 
210 DATA 358,12, 358, 4,358,16,239,4, DEV 
268, 4 
220 DATA 284,4,319,4 >» 


230 DATA 358, 16, 2,8, 358,8, 268,8, 268 >CH 





Léon NEDRAG 


Valable pour CPC 464, 
664 et 6128 








Une nouvelle règle à ajouter 
dans le code de la route : il faut 
non seulement respecter les 
feux mais également effectuer 
des opérations. Non, en fait le 
résultat des opérations influe 
sur la position des feux et 
détermine votre progression. 
Les règles sont incluses dans 
le programme. 





240 DATA 213,6, 213,8, 268, 16,358, 8,2 )EC 
68,8 

250 DATA 284,8, 319, 4,284, 4, 268, 8,37 >DC 
9,8 

260 DATA 358, 16, 2,8, 358,8 >RF 
270 DATA 284,8, 284,8, 268, 4, 284, 4,31 >DV 
9,4 

280 DATA 284,4, 268, 16,358, B, 268,8,2 )EV 
84,8 

290 DATA 284,8,284,4,201,4, 239, 4,28 )DE 
4,4 

300 DATA 268, 24, 268,8 MH 
310 DATA 301,6, 301,8, 301,68, 268,8, 26 >DR 
8,16 

320 DATA 358, 12, 358, 4, 358, 16, 239,8, DEE 
284,8 

330 DATA 268, 24, 268,8, 284, 4,319, 4,3 DEF 
19,8 

340 DATA 319,4,268,4,284,4,230,4 DIF 
350 DATA 268, 16,358, 12,358, 4,358, 16 DAL 


360 DATA 239,8,284,8,268, 16,358, 4,4 >EK 
26,4 
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370 DATA 402, 4,379,4,358,4,213,8,26 >DH 
DATA 2,4,536,4,426, 4,402, 4,379, BA 
ui DATA 358, 4,213,8,268,8,2, 10,536 )CR 
de DATA 426,4,402,4,379,4,358, 4,21 DCF 
3,8 


410 DATA 358,8, 268,24 >NP 
420 RESTORE 190:G0T0 120 TL 
430 PEN O:RUN "TRICOLO1" >TQ 


440 BORDER 1:INK 0,16:1NK 1,0:1NK 2 >PH 

D: INK 3,24,6 

450 ? #14 Régle du jeu > 

460 PAPER O:PEN 1:CLS >PF 

470 LOCATE 3,8:PRINT "VOULEZ - VOUS >VY 
LA REGLE DU JEU ?":PRINT TAB(3 

DSTRINGS (35, 207) 

480 LOCATE 11,17:PRINT "- (O)UI OU ZT 
(NON -":PRINT TAB(11)STRINGS (20, 

216) 


490 WHILE INKEY$="": VEND >UG 
500 IF INKEY(34)=0 THEN 530 UC 
510 IF INKEY(46)=0 THEN 430 UF 
520 PRINT CHR$(7)::G0T0 490 >vZ 


530 MODE 1: PEN 3:PAPER 2:CLS:LOCA >JC 
TE 6,4:PRINT "# # # REGLES DU JE 

U # # #":PEN é:LOCATE 6,3:PRINT ST 
RING$(29,"#"):LOCATE 6,5:PRINT STRI 
NG$(29,"#") 

540 WINDOW #6,1,40,11,25:PAPER #6, >TG 
O:PEN #6,1:CLS #6 

590 reglet="Ce jeu se joue SEUL ou )QU 
à DEUX. Chaque" :GOSUB 740:regle$="fo 

is que tu réponds JUSTE tu marques" 
:GOSUB 740 

560 regle$="DEUX POINTS.Si tu te TR >HD 
OMPES tu passes" :GO0SUB 740:regle$=" 
dans L'ORANGE sans marquer de POINT 
.":GO0SUB 740:PRINT#6 

570 PRINT 86:PRINT 86:G0SUB 780:CLS >GG 


#6:regle$="Une fois dans L'ORANGE 
tu ag DEUX":G0SUB 740:regle$="SOLUT 
IONS :":GOSUB 750:regle$="- SI tu 
réponds JUSTE, tu reviens dans" :G0SU 
B 740 
580 regle$="le VERT et tu MARQUES 1 

POINT":GOSUB 750:regle$="- Si tur 
éponds FAUX, tu passes dans" :GOSUB 7 
40:reglet="le ROUGE, SANS NMARQUER DE 

POINT...":G0SUB 750 
590 PRINT #6:PRINT 8#6:GO0SUB 780:CLS 

#6:regle$="Une fois dans LE ROUGE 
tu as DEUX":G0SUB 740:regle$="SOLUT 
IONS :":G0SUB 750:regle$="- SI tu 
réponds JUSTE, tu reviens dans" :GO0SU 
B 750 
600 regle$="l'ORANGE et tu MARQUES 
1 POINT.":G0SUB 750:regle$="- Si tu 

réponds FAUX, c'est ton":G0SUB 750: 
regle$="ADVERSAIRE qui PREND LA SU] 
TE DU JEU ":GOSUB 750 
610 regle$="et qui DEBUTE DANS LE V 
ERT ..":GO0SUB 750:PRINT #6:PRINT#6: 
GOSUB 780:CLS86 
620 regle$="Chaque adversaire a 3 C 
HANCES pour se":G0SUB 740:regle$="r 
acheter.Chaque réponse JUSTE MARQUE 
":GOSUB 750:regle$="DES POINTS : - 
2 dans le VERT":GOSUB 750 
630 regle$="- 1 dans les autres cas 
.… Si tu ":GOSUB 750:regle$=" joue 
3 SEUL, chaque fois que tu PERDS":G0 
SUB 750:regle$="dans LE ROUGE,TU PE 
RDS UNE CHANCE, ":GOSUB 750:reglet=" 
(tu en as 4),et TU RECOHMENCES EN V 
ERT.":G0SUB 750 
640 PRINT #6:PRINT#6:GO0SUB 780:CLS4 
6 
650 regle$="1l y a un chiffre LIMIT 
E à donner" :G0SUB 740:regle$="avant 

de débuter le jeu et {1 y a :":G05 
UB 750:regle$="- 4 possibilitées D’ 
OPERATIONS ..":GOSUB 740:regle$="- 
2 degrés de DIFFICULTEES pour la*:G 
OSUB 750 
660 regle$="DIVISION et 1 pour les 
autres.. ":GOSUB 750:regle$="Le jeu 

s'arréte aprés 30 opérations. .":G0 

SUB 740 
670 PRINT #6:PRINT #6:G0SUB 780:CL5 
#6 
680 regle$="Dans les résultats de 1 
addition, 1a":G0SUB 740:regle#$="sou 
straction,et la aultiplication, les" 

© :G0SUB 740:regle$="NONBRES S'ECRIVE 


>HF 


)NB 


BX 


V 





| 800 IF INKEY$="* THEN NEXT:G0TO 790 





NT de DROITE à GAUCHE.":GOSUB 740 
690 regle$="Dans la division sans r 
este(SR),il n’y":GOSUB 740:regle$=" 
a Q'UNE REPONSE à donner :LE QUOTIEN 
T":GOSUB 740:PRINT #6:PRINT #6:G0SU 
B 780:CLS#6 

700 regle$="Dans les autres 11 y a 
DEUX nombres à":GOSUB 750 

710 regle$="fournir : LE QUOTIENT E 
T LE RESTE" :G0SUB 750:regle$="Le QU 
OTIENT s'écrit de GAUCHE à DROITE," 
:GOSUB 750:reglet="et le RESTE de D 
ROITE à GAUCHE." :GOSUB 750 

720 regle$="BONNE CHANCE ....":G0S 


| UB 750:PEN #6,3:reglet-"##nrtturs 


MH: PRINTA6:GOSUB 760:PEN 46,1 

sregle$="QUE LE MEILLEUR GAGNE ! 
!*:GOSUB 750:PEN #6,3:reglet="###: 

A RO RO :PRINT8G:G 

OSUB 760 

730 PRINT #6:PRINT #6:GO0SUB 780:CLS 
:GOTO 430 

740 PRINT #6 

750 PRINT #6:PRINT 86 

760 LOCATE #6, INT((40-LEN(regles))/ 


>BF 
>PR 


| 2)+1,25:FO0R re=1 TO LEN(regle#):PRI 
NT #6,HID$(regles,re,1);:1F MID$(re 
| glef,re,1)0" " THEN SOUND 1,284,4, 


12,0,0,1 

770 FOR reg=1 TO SO:NEXT reg:NEÏT r 

e:RETURN 

780 i$="APPUYEZ. . SUR. .UNE. . TOUCHE. . 

POUR. . FAIRE. . AVANCER. . LES. . INSTRUCT 
IONS. . APPUYEZ. . SUR. . UNE. . TOUCHE. . PO 

UR..FAIRE. ." 

790 PEN 0:FOR 1o=1 TO 68:LOCATE 1,1 

O:PRINT MID$(1$, 10,40); :FOR in=1 TO 
SO:NEXT 


810 LOCATE 1,10:PRINT STRING$ (40,32 
) :RETURN 


10 GOTO 30 

20 SAVE "TRICOLO1 

30 BORDER 1:INK 0,16:INK 1,0: INK 2, 
9:INK 3,24,6:INK 4,6:INK 5,1:INK 6, 
26:INK 7,15:INK 9,2:INK 10,15,12:IN 


NE 


UK 11,13: INK 12,4:INK 13,20: INK 14,7 


: INK 15,3 

40 j=1:x=0:y=0:v=0:w=0:m=0:z=1:yy=0 >EH 
50 ' ### Jeu 1 ou 2 )LE 
60 MODE 1:PEN 1:PAPER O:CLS >VG 


70 LOCATE 4,8:PRINT “Jouez-vous SEU >EN 
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| L (1) ou à DEUX (2) 


80 PRINT TAB(4) STRING#(33,131) )ZA 

90 LOCATE 9,16:PRINT "TAPEZ - 1 - >LY 
ou -2- 

100 PRINT TAB(9) STRINGS$(23,131)  >ZF 
110 WHILE INKEY$="": VEND >W 


120 IF INKEY(13)=0 THEN rep=1:CLS:G >KB 
0TO 160 

130 1F INKEY(14)=0 THEN rep=2:CLS:G >KB 
OTO 220 

140 GOTO 110 

150 * ### Prénom joueur { 

160 LOCATE 3,24:PRINT "APPUYER sur 
<ENTER) aprés LE PRENOM 

170 LOCATE 9,8:PRINT "QUEL EST TO 

N PRENOM ?":PRINT TAB(9) STRINGS(2 

4,126) 

180 PEN 3:LOCATE 15,16: INPUT"",ps14 
:psi$=UPPER$(ps1$):PRINT CHR$(7):ps 
1=LEN(ps1$) :PEN O:PRINT TAB(15) STR 
ING$ (ps1,216) :ps$=LEFT$(ps1$,6) : ps= 

LEN(ps$) :1g=(22-ps1)/2 

190 CLS:PEN 1:LOCATE 1g,12:PRINT "J 

E TE REMERCIE :":LOCATE 1g+19,12: 


>) 
>RG 
ME 


>DP 


v 


Th 


| PEN 3:PRINT psi$ 


200 PEN O:PRINT TAB(Ig) STRING$(19+ 

ps1,126):G0SUB 4300:G0T0 330 

210 " ### Prénos joueurs 

220 LOCATE 1,24:PRINT "APPUYER sur >UJ 
CENTER) aprés CHAQUE PRENOH 

230 LOCATE 2,5:PRINT "Quel est le P 

RENON du premier joueur ?":PEN 0:PR 
INT TAB(2) STRING9(38, 126) :LOCATE 1 

5,9:PEN 3:INPUT"",pii$:PRINT CHRS(7 
):p11$=UPPER$(pi19) :pii=LEN(pi1$) :P 

RINT TAB(15) STRING$(p}i,216) 

240 PEN 1:LOCATE 1,14:PRINT "Quel e 

st le PRENOM du deurièse joueur ?*: 

PEN O:PRINT STRINGS (39, 126) :LOCATE 
15,18:PEN 3:INPUT"",dii$:PRINT CHR$ 

(7):di1$=UPPER$(di1$) :d11=LEN(dj1$) 
:PEN 3:PRINT TAB(15) STRING$(d11,21 

6) 

250 pi$=LEFT$(p}1$,6) :p}=LEN(p1$) :d 

19=LEFT$(dj1$,6) :d j=LEN(d j$) :GOSUB 

4300 

260 ? ### Choix joueur 

270 MODE O:h=INT(RND#2)+1:1F h=1 TH 

EN jd$=pj$ ELSE jd$=dif$ 

280 GOSUB 4280:PEN 1:CLS:LOCATE 8,3 

:PRINT "C'EST":PEN 7:PRINT TAB(8) S 

TRINGS (5, 126) 

290 PEN 12:G0SUB 4240:LOCATE cp, 10: 

PRINT jd#:PRINT TAB(cp) STRINGS# (id, 

216) 


>RJ 
)BX 


MK 


L'4 


VV 


AN 


300 LOCATE 4,17:PEN 1:PRINT "QUI C >GK 
OMMENCE.":PEN 7:PRINT TAB(4) STRING 


$(14,216) 
310 GOSUB 4300 >PC 
320 ! ### Opérations >RF 


330 MODE 1:PEN 1:PAPER O:CLS:LOCATE >GB 
12,2:PRINT “x # # MENU # # #":PR 
INT TAB(12) STRING#(18, 160) 


340 LOCATE 8,7:PRINT "- (1) ADDITI )ER 
ON 

350 LOCATE 8,9:PRINT "- (2) SOUSTR >KJ 
ACTION 

360 LOCATE 8,11:PRINT "- (3) MULTI >NH 
PLICATION 

370 LOCATE 8,13:PRINT "- (4) DIVIS FF 
TON 

380 LOCATE 8,15:PRINT "- (5) LES >QN 
5 AU HASARD 

390 LOCATE 8,17:PRINT "- (6) FIN D >HQ 
U JEU 


400 LOCATE 5,21:PRINT "Choisissez WW 

UN NOMBRE DE 4 à 6":PRINT TAB(5) 
STRING$ (33, 126) 

410 dot=INKEY#:1F do$="" THEN 410 E DUC 

LSE PRINT CHR$(7) 

420 do=VAL(do$):1F do=6 THEN END EL >DN 

SE IF do)5 OR do(1 THEN 410 

430 * #44 Vitesse réponse >RH 

440 HODE O:PEN O:PAPER 2::CLS:LOCA DRV 

TE 2,3:PRINT "# # RAPIDITE # #":P 

EN 1:PRINT TAB(2) STRING$(18, 160) 

450 PEN 6: LOCATE 2,7:PRINT "- (1) >CF 
- SURDOUE":LOCATE 2,10:PRINT "- (2 

) - DOUE 

460 LOCATE 2,13:PRINT "- (3) - NOR >BW 

MAL®:LOCATE 2,16:PRINT "- (4) - SOU 
S-DOUE 

470 vr$=INKEYS:1F vr$="* THEN 470 DTF 

ELSE PRINT CHR$(7):vr=VAL(vr$):1F v 

r<i OR vr>4 THEN 470 

480 IF vr=1 THEN Ir=10 ELSE IF vr= >DK 

2 THEN Ir=20 ELSE IF vr=3 THEN 1r=3 

0 ELSE 1r=90 

490 IF do=4 THEN 950 )HZ 

500 ? ### Nbr max >RF 

510 MODE O:PEN 1:CLS:LOCATE 3,5:PRI >YB 

NT'NOMBRE MAXIMUM":PEN 2:PRINT TAB 
(3)STRING# (15,216) 

520 PEN 1:LOCATE 5,11:PRINT "A UTI >CN 

LISER":PEN 2:PRINT TAB(5)STRING#(11 
207) 

530 LOCATE 8,17:PEN 15:INPUT "",na$ DAV 
:PRINT CHR$(7): Ina=LEN(na$):d=VAL(n 

s5) 








540 IF do=4 THEN RETURN >RG 
550 ON do GOTO 730,830,900,950,780 >2T 
560 ? ### Liaite sup. >TB 
570 PEN 3:1F d>10 THEN GOSUB 650 EL >MM 
SE GOSUB 640 

580 GOSUB 4300:LOCATE 8,17:PRINT ST >RG 
RING$(10," "):LOCATE 1,21:PEN 11:PR 
INT STRING#(17,126):PEN 1:LOCATE 1, 
23:PRINT STRING#(17,126):1F dot>4 0 
R do(>5 THEN 530 

590 GOSUB 530:1F mn=1 THEN 620 

600 xz=999:G0T0 660 

610 xz-99999:G0T0 660 

620 xz=32499:G0T0 660 >PC 
630 xz-999999:G0T0 660 >0Z 
640 LOCATE 1,20:PRINT"- NBR TROP PE >FG 
TIT,":PEN 1S:LOCATE 1,22:PRINT"TOUJ 
OURS > à *108":RETURN 

650 LOCATE 1,20:PRINT"- NBR TROP GR >QL 
AND," :PEN 15:LOCATE 1,22:PRINT"<";x 
z::PEN 3:LOCATE 12,22:PRINT "S.V.P. 
":RETURN 

660 IF d>xz OR d(i0 THEN 570 ELSE R >GD 
ETURN 

670 ? ##*# Début >TD 
680 PEN 1:CLS:LOCATE 6,3:PRINT "ATT >HB 
ENTION !":PEN 7:PRINT TAB(6) STRING 
$(11,126) 

690 PEN 12:1F rep=1 THEN GOSUB 4230 )>AN 
:LOCATE cs, 10:PEN 1:PRINT ps$:PEN 7 
:PRINT TABlcs) STRING$(ps,216) ELSE 
LOCATE cp,10:PRINT id$:PRINT TAB(c 
p) STRING$(id,216) 

700 LOCATE 4,17:PEN 1:PRINT'C'EST 
PARTI !":PEN 7:PRINT TAB(4)STRING#( 


)IA 
>NH 
M 


EE 


14,216) 

710 GOTO 4300 FC 
720 * ### Add. >RK 
730 GOSUB 630:G0SUB 4410 )TA 
740 do=1:G0SUB 1380 >NG 
750 GOSUB 1600 >QA 
760 GOSUB 1500:1F oh(>1 THEN 740 EL >»LJ 
SE RETURN 

770 * ### Les 5 au hasard TE 


780 GOSUB 600:GO0SUB 4410 

790 oh=1INTCRND#5 ) +1 

800 ON oh GOSUB 740,840,910, 1040, 11 
20 

810 GOTO 790 

820 #44 Soust. 

830 GOSUB 630:G0SUB 4410 >TB 
840 do=2:GO0SUB 1380 JNJ 
850 PEN 12:LOCATE 1,3:PRINT "SOUSTR FX 
A. 


TC 
NX 
>CY 


AB 
TA 
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860 IF ba THEN GOSUB 1410:G0T0 860 >BA 
870 GOSUB 1610 YE 
880 GOSUB 1500:1F oh(2 THEN 840 EL >LP 
SE RETURN 


890 ? ##2 Huit. >TH 
900 GOSUB 610:GO0SUB 4410 >RF 
910 do=3:G0SUB 1380 NH 
920 GOSUB 1620 >0B 
930 IF oh©3 THEN 910 ELSE RETURN  DAE 
940 * ### Choix div. TD 


950 MODE 1:PAPER 2:PEN O:CLS:LOCATE >KN 
11,3:PRINT "CHOIX DE DIVISION" :PRI 

NT TAB(11) STRING$(19,160) 

960 LOCATE 1,8:PRINT "- (1) DIVISIO >XY 
N sans reste 

970 LOCATE 1,11:PRINT "- (2) DIVISI >YR 
ON avec reste 

980 LOCATE 3,17:PRINT "Choisissez 1 >RC 
e nombre { ou 2":PRINT TAB(3) STRIN 

G$(27,126) 

990 cdt=INKEYS$:1F cd$="" THEN 990 E DJE 
LSE cd=VAL(cd$):PRINT CHR#(7) 

1000 IF cd>2 OR cd(i THEN GOSUB 448 >KW 

0:G0T0 990 

1010 ? ### Div. )IE 
1020 GOSUB 510:1F cd=2 THEN GOSUB 6 )JL 
20:GOSUB 4410:G0T0 1120 ELSE GOSUB 
600:G0SUB 4410 


1030 ? ### Div. S. R. )1G 
1040 do=4:G0SUB 1380: cpt=0 NJ 
1050 PEN 12:LOCATE 1,3:PRINT "DIV. EX 


SR 

1060 div=INT(a/b):1F div=a/b THEN 1 >FF 
090 

1070 cpt=cpt+1:1F cpt<=20 THEN GOSU >UQ 
B 1410:G0T0 1060 

1080 GOSUB 1400:cpt=0:G0T0 1070 ZE 
1090 GOSUB 1630:GO0SUB 4220:1F nr=cc >LP 

THEN GOSUB 2850 ELSE GOSUB 2940 

1100 IF ohC>4 THEN 1040 ELSE RETURN >BB 


1110 * ##x Div. À. R. >)IF 
1120 do=4:G0SUB 1380 NZ 
1130 PEN 12:LOCATE 1,3:PRINT "DIV. )EB 


AR 

1140 IF ba THEN GOSUB 1410:G0T0 11 >CB 
40 

1150 GOSUB 1640 )IA 
1160 GOSUB 4220:nri=nr >RK 
1170 GOSUB 4350:GO0SUB 4180:mn=1:LOC DUE 
ATE 6,19:nr=0:G0SUB 1880:GO0SUB 3820 
1180 nr=nr3:1F nri=açb AND a=(nritb >TQ 
)+nr THEN GOSUB 2850 ELSE GOSUB 294 

0 

1190 IF ohO5 THEN 1120 ELSE RETURN >BL 


1200 ! ### Feux tricolo )1F 
1210 CLS:HODE 0:SYMBOL 241,1,7,15,3 >QH 
1,31,63,63,63 

1220 SYHBOL 242,128,224,240,248,248B >NQ 
, 252, 252,252 

1230 SYHBOL 243,127,127,127,127,127 DNZ 
,255, 255,255 

1240 SYHBOL 244,254,254,254,254,254 >NG 
,255,255,255 

1250 SYMBOL 245,255,255,255,127,127 >ND 
5127,127,127 

1260 SYABOL 246,255,255,255,254,254 >NL 
,254,254,254 

1270 SYMBOL 247,63,63,63,31,31,15,7 >CW 
1 

1280 SYHBOL 248,252,252,252,248,248 >ND 
, 240,224, 128 

1290 WINDOW#1,19,20,1,8:WINDOW82,19 >LH 
, 20,9, 16:WINDOW#3, 19,20, 17,23 

1300 b$=CHR$(32)+CHR$(32) :a$=CHR$ (2 >DX 
41)+CHR$ (242) +CHR$ (243) +CHR$ (244) +C 
HR$(245)+CHR$(246)+CHR$ (247) +CHR$ (2 
48):c$=b$+b$ta$tbs 

1310 PAPER#1,6:PEN81,4:PRINT#1,c$+b >EN 
4 

1320 PAPER#2,6:PEN82, 7:PRINT#2,c$+b >EN 
$ 


1330 PAPER#3,6:PEN#3,2:PRINT#3,c$  >BZ 
1340 WINDOW#0,1,18,1,23:PAPER#O, 11: >RB 
PEN#O, 1 :CLS40 

1350 GOSUB 1550 )IC 
1360 GOTO 4300 JHE 
1370  ### Chiffres >) 
1380 GOSUB 1660 )IH 
1390 RANDOHIZE TIME >PP 
1400 a=INT(RND#d):1F a=0 THEN 1400 )AX 
1410 b=INTCRND#(d/10)):1F b=0 THEN )EW 
1410 

1420 IF do=3 THEN RETURN >TU 


1430 PEN 4:LOCATE 8,8:PRINT USING"# >LE 
#####4";a:F do=4 THEN LOCATE 8,10: 
PRINT USING"####4#8" ;b:RETURN 

1440 LOCATE 8,11:PRINT USING"##4##4 >0B 
#";b:RETURN 

1450 ? ### Retour menu 
1460 PRINT #4,"- # - 


A LA SELECTION" 


)YC 
POUR REVENIR >AX 


1470 FOR t=1 TO 500:1F INKEY(17)=0 >UU 
THEN 330 ELSE NEXT 
1480 GOSUB 1550:RETURN >RY 


1490 ? ### Départ opérat. »YG 
1500 LOCATE 13,22:GO0SUB 1870 VF 
. 1510 CLS#4:1F do(3 THEN 1530 %® 4] 


1520 IF nr2=ab AND nr=ab THEN 2190 )JF 








ELSE 2450 

1530 nr=nr3:1F nr=ab THEN 2190 ELSE >FL 
2450 

1540 * ### Diff. fenétres »YC 
1550 WINDOW#4, 1,20,24,25:PAPER#4,0: >GA 
PEN#4, 1:CLS#4:PRINT#4," CENTER), POU 

R CONTI. (DEL> POUR ANNULER":RETURN 
1560 IF j=1 THEN PAPER#1,6:PAPER#2, DDR 
6:PAPER#3,6:PRINT#1, STRING#(16,b$): 
PRINT#2, STRING$ (16, b$) :PEN#3,2:PRIN 
T3, c$ : RETURN 

1570 IF j=2 THEN PAPER#1,6:PAPER#2, DJB 
6:PAPER#3,6:PRINT#1,STRINGS(16,b$) : 
PEN#2, 7:PRINT#2, c$+b$ :PRINTS3, STRIN 
G$(14,b$) :RETURN 

1580 PAPER#1,6:PAPER#2,6:PAPERS3,6: >HV 
PEN#1,4:PRINT#1, c$+b$:PRINTE2, STRIN 

G$(16,b$):PRINT#3, STRINGS (14,b$):RE 
TURN 

1590 *### Sinilitude prograsse opér >YH 
at. 

1600 PEN 12:LOCATE 1,3:PRINT "ADDIT )ZA 
. ":LOCATE {,14:PEN 13:PRINT "AJOUTE 
":GOSUB 1750:LOCATE 4,18:PRINT "+" 
:ab=atb:RETURN 

1610 PEN 13:LOCATE 1,14:PRINT "SOUS >TC 
T.":GOSUB 1750:LOCATE 4,18:PRINT "- 
“:ab=a-b:RETURN 

1620 PEN 12:LOCATE 1,3:PRINT "MULTI >AZ 
.":GO0SUB 1770:ab=a#b:GOSUB 4080:RET 

URN 

1630 PEN 13:LOCATE 1,12:PRINT"DIVIS DFE 
E*:cc=a/b:GOSUB 1830:G0SUB 4360:G0S 

UB 4370:LOCATE c2,19:G0SUB 1870:RET 

URN 

1640 PEN 13:LOCATE 1,12:PRINT "DIVI >AC 

SE":GOSUB 1830:cc=açb:rd=a MOD b:G0 

SUB 4360:G0SUB 4370:LOCATE c2, 19:60 

SUB 1870:RETURN 

1650 ?” #4# Tableau présent. opérat. DYE 

1660 PAPER#O, 11:PEN#O, 5: :CLS#0 >YL 

1670 IF rep=1 THEN LOCATE 8,1:PEN 6 >YD 

:PRINT ps$:G0T0 1690 

1680 GOSUB 4240:LOCATE 8,1:PEN 6:PR >KG 

INT jd$ 

1690 PEN 3:LOCATE 15,1:PRINT z:PEN DAT 

5:LOCATE 1,5:PRINT "NER. MAX. :":PEN 
14:LOCATE 11,5:PRINT d:PEN 7:PRINT 
STRING$ (10, 126) 

1700 PEN 2:PRINT:PRINT "NBR 1:":PEN DEC 
T:PRINT STRING$(6, 126) 

1710 IF do=3 OR do=4 THEN 1780 D | 

1720 PEN 9:PRINT:PRINT "NBR 2:":PEN DEN 
7:PRINT STRINGS(6, 126) 
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1730 PEN 5:LOCATE 8, 14:PRINT "LES 2 DEV 
NBR:":PEN 7:PRINT STRING$(17,126): 

RETURN 

1740 ’ s### A et B 

1750 PEN 15:LOCATE 7,16:PRINT USING 

"HHAAHH" ;a:LOCATE 7,18:PRINT USING 
HE" D 

1760 PEN 1:LOCATE 3,20:PRINT STRING >ZB 

$(12,131) :LOCATE 2,22:PRINT "=":RET 

URN 

1770 PEN 15:LOCATE 9,8:PRINT USING" 

#HH#H" sa: LOCATE 9,10:PRINT USING*# 
#HH#4":b:GOTO 4320 

1780 PEN 9:PRINT'NBR 2:":PEN 7:PRIN >WR 

T STRINGS(6, 126) 

1790 IF do=4 THEN 1810 
1800 PEN 1:LOCATE B,10:PRINT"#":LOC >XF 

ATE 9,11:PRINT STRING$(6, 131) :RETUR 

N 

1810 PEN S:LOCATE 8,12:PRINT'LES 2 

NBR°:PEN 7:PRINT STRINGS(17, 126) :RE 

TURN 

1820 ? ### Desgin divi. 

1830 PEN 15:LOCATE 1,16:PRINT USING >FP 
"HH##H";a:LOCATE 10,16:PRINT USIN 

G "#48" ;b 

1840 FOR n=15 TO 20:LOCATE 8,n:PRIN >KZ 

T CHR$(149):NEXT:LOCATE 8,17:PRINT 

CHR$(151) :LOCATE 9,17:PRINT STRING$ 


)YE 


(6,154) 
1850 RETURN >FH 
1860 ?* ##x Aff. et minut. rép. )YH 


1870 nr=0:nri=0:nr2-0:nr3=0:G05UB 4 >GM 
180 

1880 WINDOW #7,1,6,1,1:PEN #7,4:PAP >QL 
ER #7,6:CLS #7:nbi=0:nr$=STR$(nr) 


1890 tp=INT(TIHE/300) >QF 
1900 PEN 3:PRINT CHR$(238) ;CHR#(8); >HX 
PEN 1 

1910 tpi=ir-(INT(TIME/300)-tp) )ZX 


1920 SOUND 1,50,10,10:F0R t=1 TO 10 >ED 

O:NEXT:1F tp1=9 THEN CLS#7 

1930 LOCATE #7,1,1:PRINT #7,tpi;"S 
1940 nb$=INKEY$:1F nb$="" AND tp1)0 >KD 
THEN 1910 

1950 IF tpi<=0 THEN 2170 ELSE tp2=t >DZ 
pi 

1960 IF INKEY(18)=0 OR INKEY(6)=0 T DHT 
HEN PRINT CHR$(16):GO0TO 2170 

1970 1F ASC(nb$)(2127 THEN 2040 
1980 IF LEN(nr$)(1 OR nbi(i THEN 21 

20 

1990 nr$=LEFT$(nr$,LEN(nr#$)-1):1F d >QJ 
0o=4 THEN 2010 


2000 nb$=CHR$ (16) +CHR$ (9) +CHR$ (16) : 
GOTO 2030 

2010 IF an=1 THEN 2000 

2020 nb$=CHR$(16)+CHR$(8)+CHR$ (16) 
2030 nbi=nbi-1:G0T0 2110 

2040 IF ASC(nb$)<45 OR ASC(nb$)>57 
THEN 2120 

2050 IF do=4 THEN 2090 

2060 nr$=nr$tnb$:nbi=nbi+{:GOSUB 43 
30:1F nbi>abb THEN 2170 ELSE 2080 
2070 nr$=nr#tnb#t:nbi=nbi+i:GOSUB 43 
30:1F nbidres THEN 2170 

2080 PRINT nb$::PEN 3:PRINT CHR$(8) 
:CHR$ (8) ;CHR$ (238) ;CHR$ (8); :PEN 1:G 
OTO 2120 

2090 IF an=i THEN 2070 

2100 nr$=nr$tnb#:nbi=nbi+i:GOSUB 43 

60:1F nbi>ci THEN 2170 

2110 PRINT nb$::PEN 3:PRINT CHR$(23 

B):CHR$(8);:PEN 1 

2120 tp=INT(TIHE/300) 

2130 tpi=tp2-(INT(TIME/300)-tp) : SOU 
ND 1,50,10,10:FO0R t=1 TO 100:NEXT:1 
F tpi=9 THEN CLS#7 

2140 LOCATE #7,1,1:PRINT #7,tpi:"S 

2150 nb$=INKEY$:1F nb$="" AND tp1)0 
THEN 2130 

2160 GOTO 1950 

2170 IF do=3 OR do=4 THEN RETURN EL 

SE 3820 

2180 ? ### Rép. juste 

2190 BORDER 16,7:PAPER#O,9:PEN8O, 10 
:CLS4#0 

2200 LOCATE 3,3:PRINT "TU AS RAIS 
ON":PEN 3:PRINT TAB(3) STRING$(14,2 

08) | 

2210 PEN 12:1F rep=2 THEN GOSUB 444 

O:PEN 3:GO0SUB 4450 ELSE GOSUB 4430 
2220 PEN 10:G0SUB 4460:PEN 3:G0SUB 

4470 

2230 PEN 1:GO0SUB 4330:G0SUB 4340:L0 

CATE tot,20:PRINT ab 

2240 RESTORE 2250:FO0R n=1 TO 8:READ 
o:SOUND 1,0,15,15:NEXT n 

2250 DATA 100,90, 100, 110, 120,110, 10 

0,0 

2260 IF 1=1 THEN ji=1:G0SUB 1560:G0 

TO 2290 

2270 IF i=2 THEN ji=1:G0SUB 1560:G0T 

0 2330 

2280 IF j=3 THEN j=2:GOSUB 1570:G0T 

0 2330 

2290 IF rep=i THEN 2710 

2300 BORDER 1:1F id$=pj$ THEN 2320 


)CY 


>Ht 


>GY 


>GC 


> 
>AH 








2310 w=ut2:v=v+1:G0T0 2370 JV] 
2320 y=y+2:x=x+1:GOTO 2370 >VU 
2330 IF rep=1 THEN 2720 > 


2340 BORDER 1:1F id$=pi$ THEN 2360 AR 


2350 w=ut{i:v=v+1:G0T0 2370 >vH 
2360 y=yti:x=xti >LG 
2370 GOSUB 4680:z=z+1 )0E 


2380 1F z€31 THEN 1460 ELSE GOSUB 3 >NU 
030:G0T0 3380 

2390 LOCATE (7-res),19:PRINT rd )ZA 
2400 LOCATE 1,21:PEN 2:PRINT'L'ERRE TH 

UR EST DANS: 

2410 IF nri(cc AND nr<>rd THEN PEN 
3:PRINT "LE QUOT. et RESTE" :G0T0 2 
540 

2420 1F nriCcc THEN PEN 3:PRINT TA 
B(4)*LE QUOTIENT":G0TO 2540 

2430 1F nrOrd THEN PEN 3:PRINT TAB 
(S)"LE RESTE":G0TO 2540 

2440 ? #44 Rép. fausse 

2450 BORDER 0,1:PAPER#0, S:PEN#O,3:C 

LS40 - 

2460 LOCATE 4,3:PRINT "TU AS TORT 
":PEN 13:PRINT TAB(4) STRING$(12,20 
8) 

2470 PEN 12:1F rep=2 THEN GOSUB 444 
O:PEN 13:G0SUB 4450 ELSE GOSUB 4430 


)YA 


2480 PEN 3:GO0SUB 4460:PEN 13:G0SUB 
4470 

2490 PEN 1:GO0SUB 4330:G0SUB 4340:L0 
CATE tot,18:PRINT ab 

2500 IF do(>3 THEN 2540 ELSE PEN 2: 
LOCATE 1,20:PRINT "L'ERREUR EST DAN 

S:":PRINT STRING# (18, 126) 

2510 IF ne=0 THEN 2520 ELSE IF nr<) 

ab AND nr20Oab THEN PEN 3:LOCATE 1, 
23:PRINT "L'ADD ET LA HULT.":G0T0 2 

540 

2520 IF nr2()ab THEN PEN 3:LOCATE 1 
,23:PRINT "LA MULTIPLICATION" :GO0TO 
2540 

2530 IF nrCab THEN PEN 3:LOCATE 5, 
23:PRINT "L'ADDITION 

2540 FOR u=127 TO 253:SOUND 1,u,1,1 >HP 
S:NEXT 

2550 IF j=1 THEN j=2:G0SUB 1570:G0 >HZ 
TO 2640 

2560 1F j=2 THEN j-3:GOSUB 1580:G0T >HA 
0 2640 

2570 1F j=3 THEN j=1:G0SUB 1560 >) 
2580 IF rep=1 THEN 2680 >K 

2590 BORDER 1:G0SUB 3030:1F jd$=p}i$ >LB 
THEN 2610 


)YT 


AC 


> 
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| 2790 RESTORE 4490 





2600 1d$=pj$:v=v+1:G0T0 2620 NT 
2610 jd$=di$:x=xt1 >AC 
2620 n=nt1:z=2+1 )LJ 


2630 IF e=4 OR z=31 THEN 3380 ELSE )GZ 
RETURN 


2640 IF rep=1 THEN 2690 >4 


| 2650 BORDER 1:1F jd#=pit THEN x=1+1 MH 


ELSE v=v+1 
2660 GOSUB 4680:z=2+1 >0G 
2670 IF z<31 THEN 1460 ELSE GOSUB 3 >N4 
030:G0T0 3380 


| 2680 a=at1:z=2+1:G0SUB 3030:G0T0 27 )EQ 


00 

2690 z=z+1:G0T0 2730 >PG 
2700 BORDER 1:1F 2-31 OR n=4 THEN 3 >NG 
240 ELSE 1460 

2710 yy=yy+2:z=z+1:G0T0 2730 >IK 
2720 yy=yyt1:z=2+1 >NA 
2730 BORDER 1:1F z<31 THEN 1460 ELS >ZM 
E GOSUB 3030:G0T0 3230 

2740 * #42 VALSE FAVORITE ALLEGRETT >YF 


| OCby HOZART & AMSTRAD MAGAZINE) 


2750 RESTORE 4490:ENV 1,2,2,7,1,0,2 >DF 
00 

2760 FOR no=1 TO 92:READ so, du 
2770 IF s0=2 THEN ton=0 ELSE ton=9 
2780 SOUND 4,50, du#5, ton, 1:SOUND 2, 
s0-0.3,du#5, ton, 1:SOUND 1,50,du#5,t 
on,{:NEXT no 


)1C 
BJ 
>PZ 


2800 FOR no=i TO 44:READ 50,du 

2810 IF s0=2 THEN ton=0 ELSE ton=9 

2820 SOUND 4,50,du*4.5, ton, 1 : SOUND 
2,30-0.8,du#4.5,ton,1:SOUND 1,50, du 

#4.5,ton, 1 

2830 NEXT no:RETURN 

2840 * ### Rép. juste dans divi. À. 
R. 

2850 BORDER 16,7:PAPER#0,9:PEN#O, 10 
:CLS40 

2860 LOCATE 3,3:PRINT "TU AS RAIS 
ON":PEN 3:PRINT TAB(3)STRING$ (14,20 

8) 

2870 PEN 12:1F rep=2 THEN GOSUB 428 
O:LOCATE cd,8:PRINT jd$:PEN 3:PRINT 
TAB(cd)STRINGS(id,208) ELSE GOSUB 

4430 

2880 PEN 10:LOCATE 5,13:PRINT "C'ET 
AIT :":PEN 3:PRINT TAB(5) STRING$(9 
, 208) 

2890 GOSUB 1830 »YD 
2900 PEN 1:c2=15-c1:LOCATE c2,19:PR >DW 
INT cc:1F mn@i THEN 2920 

2910 LOCATE (7-res),19:PRINT rd 


)CE 


)IN 


2920 GOTO 2240 DA 
2930 ! ### Rép. fausse divi. S. R. )>YG 
2940 BORDER 0,1:PAPER#O,5:PEN#0,3:C >HB 
LS40 

2950 LOCATE 4,3:PRINT "TU AS TORT >1B 
":PEN 13:PRINT TAB(4) STRING#(12,13 

1) 

2960 IF rep=1 THEN PEN 3:G0SUB 4430 >LD 
:GO0TO 2980 

2970 PEN 12:G0SUB 4280:LOCATE cd,8: )JF 
PRINT jd#:PEN 13:PRINT TAB(cd)STRIN 
G$(jd, 131) 


2980 PEN 3:LOCATE 5,13:PRINT "C'ETA DAX | 


IT :":PEN 13:PRINT TAB(S)STRINGS(9, 
131) 

2990 GOSUB 1830 )YE 
3000 PEN 1:c2=15-c1:LOCATE c2,19:PR >CT 
INT cc:1F mn=1 THEN 2390 

3010 GOTO 2540 >HC 
3020 " ### Score joueur 1 )1H 
3030 GOSUB 3180:1F rep=2 THEN 3100 AL 
3040 GOSUB 4250:LOCATE cr,3:PRINT p >FM 
39$:PEN 2:LOCATE cr,4:PRINT STRING$#( 

ps, 131) 

3050 LOCATE 2,8:PEN S:PRINT “NBR DE >FK 
JEUX:":PEN 2:LOCATE 2,9:PRINT STRI 
NG$(12,131):PEN 15:LOCATE 14,8:PRIN 
Tz-i 

3060 LOCATE 2,13:PEN S:PRINT "NBR D >JK 
E PTS :":PEN 2:LOCATE 2,14:PRINT ST 
RING$(12,131):PEN 15:LOCATE 14,13:P 
RINT yy 

3070 LOCATE 2,18:PEN S:PRINT "NBR D >GG 
E CHA. :":PEN 2:LOCATE 2,19:PRINT ST 
RING$(12,131):PEN 15:LOCATE 14,18:P 
RINT « 

3080 GOSUB 4310 :RETURN )RT 
3090 ’ ### Score deux loueurs )YE 
3100 LOCATE 2,12:PRINT STRING$(16," >FH 
#") 

3110 PEN 5:GO0SUB 4260:LOCATE cf,4:P >NA 
RINT pji$:PEN 2:LOCATE cf,5:PRINT ST 
RING$(pj,131) 

3120 LOCATE 2,7:PEN S:PRINT "NBR DE >KZ 
JEUX :";:PEN 15:PRINT x:PEN 2:LOCAT 

E 2,8:PRINT STRING# (12,131) 

3130 LOCATE 2,10:PEN S:PRINT "NBR D >MQ 
E PTS :"::PEN 15:PRINT y:PEN 2:LOCA 

TE 2,11:PRINT STRING#(12,131) 

3140 PEN 5:G0SUB 4270:LOCATE df,14: >RU 
PRINT di$:PEN 2:LOCATE df,15:PRINT 
STRINGS (dj, 216) 

3150 LOCATE 2,17:PEN 5S:PRINT "NBR D >NQ 
E JEUX:";:PEN 15:PRINT v:PEN 2:LOCA 

TE 2,168:PRINT STRINGS (12,216) 








3160 LOCATE 2,20:PEN 5:PRINT "NBR D >MY 
E PTS :";:PEN 15:PRINT w:PEN 2:LOCA 
TE 2,21:PRINT STRING# (12,216) 


3170 GOSUB 4310:RETURN RT 
3180 ? ### Sinil. tabl. )YE 
3190 PAPER#O, 11 :PEN#O, 2: CLS#0 )IN 


3200 FOR i=2 TO 21:LOCATE 1,1:PRINT MX 
"A":LOCATE 18,i:PRINT "4":NEIT 

3210 LOCATE 1,1:PRINT STRING$(18,"*# >EA 
") 

3220 LOCATE 1,22:PRINT STRING$(18," >PY 
4") :RETURN 

3230 " ### Fin joueur 1 >YA 
3240 HODE O:PAPER 5:PEN 10:BORDER O >GP 
:CLS 

3250 LOCATE 4,4:PRINT "C'EST FINI EU 
! 

3260 PRINT TAB(4) STRING#(14,238) AW 
3270 PEN 9:LOCATE cs,9:PRINT ps$  )AN 
3280 GOSUB 4230:PEN 3:PRINT TAB(cs) >WF 
STRING$ (ps, 238) 

3280 PEN 10:LOCATE 6,14:PRINT "C'ET >JU 
AÏT : 

3300 PEN 3:PRINT TAB(6) STRING$(9,2 >FP 
38) 

3310 IF yy>48 THEN LOCATE 4,20:PEN VV 
10:PRINT "TRES - BIEN !":PEN 3:PRI 

NT TAB(4) STRING$(14,238) :G0TO 3360 

3320 1F yy>36 THEN LOCATE 6,20:PEN >KC 

10:PRINT "! BIEN !":PEN 3:PRINT T 

AB(6) STRING$ (9,238) :GOTO 3360 

3330 1F yy>24 THEN LOCATE 4,20:PEN DVJ 
10:PRINT "ASSEZ - BIEN !°:PEN 3:PRI 

NT TAB(4) STRING$(14,238) :GOTO 3360 

3340 IF yy>12 THEN LOCATE 5,20:PEN NF 

10:PRINT "HEDIOCRE !":PEN 3:PRINT T 

AB(5) STRING$(10,238) :G0TO 3360 

3350 IF yy<=12 THEN LOCATE 2,20:PEN >DN 
10:PRINT "MAL ! A REVOIR !":PEN 

J:PRINT TAB(2) STRING$(18, 238) : GOTO 
3360 


3360 GOSUB 2750:G0T0 3750 >TQ 
3370 * ##4 Fin prograsse YF 
3380 SYMBOL AFTER 145 >PE 


3390 SYHBOL 145,1,1,3,3,7,7,15,15  >2V 
3400 SYHBOL 146, 128, 128, 192, 192,224 >NP 
, 224,240, 240 


| 3410 SYHBOL 147,31,31,63,63, 127,127 >JQ 


, 255,255 


| 3420 SYNBOL 148,248,248,252,252,254 >NN 
| ,254,255,255 


3430 SYHBOL 155,255,255,254,254,252 >NN 
,252, 248,248 

3440 SYABOL 150,255,255,127,127,63, >JH 
63,31,31 
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3450 SYMBOL 156,15,15,7,7,3,3,1,1 >ZU 
3460 SYMBOL 152,240, 240, 224,224, 192 DNT 
192, 128, 128 

3470 SYNBOL 153,124,62,31,15,15,15, >FD 
15,15 

3480 SYMBOL 157,240, 240,240, 248,248 >NV 
252, 124,124 

3490 SYMBOL 249,192,240,252,252,254 >NN 
,254,255,255 

3500 SYMBOL 250,15,31,63,127,254,25 >KA 
2,248, 240 

3510 SYMBOL 251,240, 248,252,254,127 >KC 
,63,31,15 

3520 SYMBOL 252,255,255,254,254,252 >NZ 
, 252,240, 192 

3530 SYMBOL 253,15,15,15,15,15,31,6 DFF 
3,127 

3540 SYHBOL 254,127,63,31,15,15,15, >FH 
15,15 

3550 SYMBOL 255,240,224,192,128,240 >NH 
, 240, 240,240 

3560 HODE 0:PAPER 5:PEN 10:BORDER 0 >GV 
:CLS 

3570 i$=CHRS(32)+CHR$ (32) : 1$=CHRS(1 DK 
43) :k$=CHR$ (249) : 1$=CHRS (145) 

3580 a$=CHR$(146) :n$=CHR$(133) :y$=C >TB 
HR$ (138) :0$=CHR$ (254) :p$=CHR$(147) 

3590 q$=CHRS (148) :r$=CHR$(141):38=C DTE 
HR$(250) :t$=CHR$ (155) :u$=CHRS (150) 

3600 v$=CHRS(135) :u$=CHR$(251):x$=C >TH 
HR$ (255) : z$=CHR$ (253) :h$=CHR$ (142) 

3610 f$=CHR$(152) :g$=CHR$(156):e8=C >VD 
HR$ (252) :aa$=CHR$ (153) :bb$=CHRS (157 

) 

3620 LOCATE 2,3:PRINT j$+k$+1$+j$+k DHV 
$+18+181m8+181n8+y8+19+ 184 j$ 

3630 LOCATE 2,4:PRINT n$to$+1$+n$+0 >HU 
$+i$tp#rq$+i$tn$ty$ti$tn$ty$ 

3640 LOCATE 2,5:PRENT r$ts$+i$tr$ts >JN 
S+isttstus+istn$ty$+i$tn$ty$ 

3650 LOCATE 2,6:PRINT v$tu$+i$+j$+x >JM 
$+i$in$+y$+i$+q8tp#ti$tn$ty$ 

3660 LOCATE 2,7:PRINT n$+z$+i$+n$+b >KR 
b$+i$tr$th$+iftu$+t$+i$tn$ty$ 

3670 LOCATE 2,68:PRINT j$te$+i$tn$ta >JL 
a$+i$tn$tys+i9+g8+1 61841818 

3680 LOCATE 2,10:PEN 3:PRINT STRING >HC 
$(18,238) 

3690 1F y>u THEN PEN 10:GDSUB 4390: >TE 
LOCATE cg, 15:PRINT pj$:PEN 3:PRINT 
TAB(cg)STRING$(p},238):G0T0 3730 

3700 IF y<w THEN PEN 10:G0SUB 4400: )TL 
LOCATE dg,15:PRINT dj$:PEN 3:PRINT 
TAB(dg)STRING#(di,238):GOT0 3730 

3710 IF y=w THEN PEN 3:LOCATE 3,15: >RB 


PRINT "VOUS ETES LES":PEN 10:PRIN 

T TAB(3)STRINGS (15,238) :PEN 3:LOCAT 

E 6,20:PRINT "MEILLEURS" :PEN 10:PRI 

NT TAB(6)STRING$ (9,238) 

3720 GOSUB 2750:G0T0 3750 

3730 LOCATE 2,20:PRINT "YOU ARE THE 
BEST !":PEN 10:PRINT TAB(2)STRINGS$ 
(18,238) :G0TO 3720 

3740 " ### Rejouer 

3750 BORDER 1:PAPER O:PEN 1:CLS 
3760 LOCATE 1,7:PRINT "ENCORE UNE P 
ARTIE ?":PRINT STRING#(19,238) 

3770 LOCATE 1,15:PRINT "- (O)UI OU 

(N)ON -":PRINT STRING$ (20,238) 

3780 IF INKEY(34)=0 THEN 30 

3790 IF INKEY(46)-0 THEN END 

3800 GOTO 3780 

3810 ? ### Ecr. droite à gauche Nbr 

3820 ON nbi GOTO 3830, 3840, 3860, 389 

0, 3920, 3950, 3980, 4010, 4040 

3830 nr3=VAL(nr$) :RETURN 

3840 un$=RIGHT$(nr$, 1) :un=VAL(un$): 

dx$=RIGHT$(nr$,2) :dxi=VAL(dx$):dx=( 

dxi-un)/10 

3850 nr3=(un#10)+dx:RETURN 

3860 GOSUB 3840 

3870 ts$=RIGHT$(nr$,3):ts1=VAL(ts$) 
sts=(ts1-dx1)/100 

3880 nr3=(nr3#10)+t3:RETURN 

3890 GOSUB 3860 

3900 qe$=RIGHT$(nr$, 4) :qei=VAL (ges) 
:ge=(qel-ts1)/1000 

3910 nr3=(nr3#10)+qe:RETURN 

3920 GOSUB 3890 

3930 cq$=RIGHTS#(nr$,5):cq1=VAL (caf) 
:cq=(cqi-ge)/10000 

3940 nr3=(nr3#10)+cq:RETURN 

3950 GOSUB 3920 

3960 5x$=RIGHT$(nr$,6):5x1=VAL(sx$) 
:8x=(sx1-cq1)/100000 

3970 nr3=(nr3#10)+9x:RETURN 

3980 GOSUB 3950 

3990 st$=RIGHT$(nr$,7):st1=VAL(st$) 
:8t=(sti-sx1)/1000000 

4000 nr3=(nr3#10)+st :RETURN 

4010 GOSUB 3980 

4020 ht$=RIGHT$(nr$,8):hti=VAL(htS) 
tht=(hti-st1)/10000000 

4030 nr3=(nr3#10)+ht:RETURN 

4040 GOSUB 4010 

4050 nf$=RIGHT$#(nr$,9) :nf1=VAL(nf$) 
snf=(nfi-ht1)/100000000 

4060 nr3=(nr3#10)+nf :RETURN 

4070 * #44 Résult. nuit. 

4080 GOSUB 4150:1F ne=0 THEN nr=nr3 








snr2=nr3:G0SUB 4180:G0T0 1510 ELSE 
GOSUB 4170:0N ne GOTO 4090,4100, 412 

0 

4090 LOCATE 6,14:GOSUB 4190:LOCATE >TQ 
14,15:G0T0 4200 

4100 nri=nr2:nr2=0:LOCATE 12, 14:G0S 
UB 4160:nr2=nri+(nr3#100) 

4110 LOCATE 6,15:GO0SUB 4190:LOCATE 
14,16:G0T0 4200 

4120 nri=nr2:nr2=0:LOCATE 12,14:G0S 
UB 4160:nr2=nri+(nr3#100) 

4130 nri=nr2:nr2=0:LOCATE 11,15:G0S 
UB 4160:nr2=nri+(nr3#1000) 

4140 LOCATE 6,16:GO0SUB 4190:LOCATE 
14,17:G0T0 4200 

4150 LOCATE 14,12:GO0SUB 1860:G0T0 3 >£J 
820 

4160 GOSUB 4180:G0SUB 1880:G0T0 382 >DR 
0 

4170 nri=nr3:nr3=0:LOCATE 13,13:G05 
UB 4160:nr2=nri+(nr3#10) :RETURN 
4180 un=0:dx=0:ts=0:qe=0:cq=0:3x=0: 
st=0:ht=0:nf=0:dx=0:nr3=0:rdi=0:an= 
0:tpi=0:tp2=0:RETURN 

4190 GOSUB 41B0:PRINT STRINGS(9,131 >NM 
) :RETURN 


GT 


4200 GOSUB 1880:G0SUB 3820:nr=nr3:G >2ZC 
OSUB 4180:G0T0 1510 

4210 ? ### Nbr >IK 
4220 nr=VAL(nr$) :RETURN >UH 


4230 cs=INT(21-ps)/2:RETURN ) 
4240 cp=INT(21-id)/2:RETURN >) 
4250 cr=INT(19-ps)/2:RETURN IF 
4260 cf=INT(19-p})/2:RETURN Del 
4270 df=INT(19-di)/2:RETURN )IY 
4280 jid=LEN( id$) )LZ 
4290 cd=INT(19- jd)/2:RETURN Du 
4300 FOR t=1 TO 1500:NEXT:RETURN DAT 
4310 FOR t=1 TO 3000:NEXT:RETURN )AQ 
4320 ne$=STR$(b) :ne=LEN(ne$)-2:RETU >GR 
RN 

4330 ab$=STR$ (ab) :abb=LEN(ab$) :RETU >GE 
RN 

4340 tot=INT(19-abb)/2:RETURN )ZU 
4350 rd$=STR$(rd):res=LEN(rd$):RETU >HA 
RN 

4360 cc$=STR$(cc):c1=LEN(cc$) :RETUR )FY 
N 

4370 IF cc<0 THEN c2=15-ci ELSE c2= >EZ 
16-c1 

4380 RETURN )FJ 
4390 cg=INT(21-pi)/2:RETURN )1G 
4400 dg=INT(21-dj)/2:RETURN )IL 
4410 GOSUB 680 >QC 
4420 GOSUB 1210:G0T0 1560 >TZ 
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4430 GOSUB 4250:LOCATE cr,8:PRINT p DLK 
s$:PEN 3:PRINT TAB(cr)STRINGS (ps, 20 

8) :RETURN 

4440 GOSUB 4280:LOCATE cd,8:PRINT j >PR 
d$:RETURN 

4450 PRINT TAB(cd)STRINGS (id, 208) :R >LD 
ETURN 

4460 LOCATE 5,13:PRINT *C’ETAIT :": 3KE 
RETURN 

4470 PRINT TAB(5)STRINGS (9, 208) :RET HP 
URN 

4480 LOCATE 11,23:PRINT "Réponse NO DUB 
N CONFORME":PRINT TAB(11)STRINGS (20 
,126) :RETURN 

4490 DATA 159, 4, 169, 4,159, 4,127,4,1 ED 
59,4 

4500 DATA 213,4,253,4,239,4,284,4,1 DK 
90, 4 

4510 DATA 213,4,253,4,319,4,253,4,3 DJ 
19,4 

4520 DATA 213,4, 239, 4,284,4,338,4,2 >DU 
84,4 

4530 DATA 338,4,213,8, 2, 4,159,4,169 >CH 
4 

12 

4540 DATA 159,4, 127,4,159,4,213,4,2 >DR 
53,4 

4550 DATA 239, 4,284, 4,190,4,213,4,2 >DQ 
53,4 

4560 DATA 319,4,253,4,319,4,213,4,2 DU 
39,4 

4570 DATA 284, 4,338, 4,284, 4,338,8,3 DFE 


| 19,4 
4580 DATA 2,4,426,4,319, 4,253, 4 


)IF 
4590 DATA 253, 4,239, 4,284,4,426,4,3 )DF 
38,4 

4600 DATA 284, 4,284, 4,253,4,319,4,4 >DU 
26,4 

4610 DATA 319, 4,253, 4,338,4,213,4,4 >DN 
26,4 

4620 DATA 213, 4,338, 4,213,4,319,4,2 DH 
53,4 

4630 DATA 426,4,426,4,319,4,253,4 DVD 
4640 DATA 253, 4,239, 4,284, 4,426,4,3 )DB 
38,4 

4650 DATA 284, 4,284, 4,253, 4,319, 4,4 )DB 
26,4 

4660 DATA 319,4,253,4,338, 4,213,4,4 )DU 
26,4 

4670 DATA 213,4, 338, 4,213,4,319,8,2 DCE 
,4 

4680 IF z=15 AND((V=0 AND u=0)0Rtx= >HY 
O AND y=0))THEN {=1:GOSUB 1560:BORD 

ER 1:GOSUB 3030:1F idt=pis THEN id 
=di$ ELSE idt=pit:a=ati 


4690 RETURN >GC 





1010 ” 


1030 ? 

1040 ENV 5,1,7,4,7,-1,20 

1050 RESTORE 1130 

1060 READ A,B,C 

1070 IF a=-1 THEN IF d=0 THEN RESTO 
RE 1130:d=1 ELSE d=0 

1080 IF a=-2 THEN IF e=0 THEN RESTO 
RE 1200:e=1 ELSE e=0 

1090 IF a=-3 THEN RESTORE 1130 

1100 IF SGN(a)=-1 THEN 1060 

1110 SOUND A,B,C214,7-(A AND 1),-5% 
(BC0) 

1120 GOTO 1060 

1130 DATA 49,0,4,42,127,1,28,0,4,2, 
142,1,2,150,1,2,142,1,49,284,2,42,1 
19,2,28,284,2,49,239,2, 42,0,2, 28, 19 
0,2,49,239,2, 42,106, 1,28, 190,2,2,11 
9,1,49,239,2 

1140 DATA 42,127,1,28,190,2,2,119,1 
49,284, 2, 42,95, 2,28, 284, 2,49, 239,2 
, 42,0, 2,28, 190, 2,49,239,2,42,89,1,2 
8,190,2,2,95,1,49,239,2,42, 100, 1,28 
,190,2,2,95,1 

1150 DATA 49,284,2,42,63, 1,28,284,2 
2, 71,1,49,239,2,42,75,1,28, 190,2,2 
, 71,1,49,284,2,42,63,1,28,284,2,2,7 
1,1,49,239,2,42,75,1,28,190,2,2,71, 
1,49,284,2 

1160 DATA 42,60,4,28,284,2,33,239,2 
12, 190,2, 49,239,2,42,71,2,28, 190,2 
49,239, 2, 42,60, 2, 28, 190,2, 49, 379,2 
,42,63,2,28,379,2,49,319,2,42,71,2, 
28,253,2,49,319,2 

1170 DATA 42,80,2,28,253,2,49,319,2 
42, 71,2,28,253,2,49,379,2,42,63,2, 
28,479,2,49,319,2,42,71,2,28,253,2, 
49,319, 2, 42, 80, 2,28, 253,2, 49,319,2, 
42,71,2,28,253,2 

1180 DATA 49,379,2,42,63,2,28,379,2 
:49,319,2,42,71,2,28,253,2,49,506,2 
42,80, 2, 26, 506, 2, 49, 402,2, 42,84,2, 
28,284, 2,49,379,2,42,95,2,28,319,2, 
49,0,2,42,0,2 

1190 DATA 28,0,2,-1,-1,-1 

1200 DATA 49,0,4,42,95,2,28,0,4,2,8 
9,2,49,478,4,42,80,2,28,478,4,2,80, 
2,49,379,4,42,71,1,28,379, 4,2, 80, 1, 


V 





LA MARCHE 


TURQUE 


Dominique WATHIER 


Valable pour CPC 464, 
669 et 6128 





Retrouvez sur votre CPC 
cet air célèbre qui ravira votre 
haut-parleur. C'est presque 
aussi beau que la Truite 
de Mozart, vous savez : 
pom - pom - pom - pom. 


2,89,1,2,95,1,49,319, 4,42, 106,4, 28, 
319,4, 49,0, 4 

1210 DATA 42,95, 2, 28,0, 4, 2,89, 2, 49, 
478,4, 42, 80, 2, 28,478, 4, 2, 80, 2, 49,37 
9,4,42,71,1,28,379,4,2,80,1,2,89,1, 
2,95,1,49,319, 2, 42, 106, 2, 28, 319, 2, 4 
9,0,6,42,0,2 

1220 DATA 28,0,6,2, 119, 2, 2, 106, 2, 49 
,568,4,42,95, 2, 28,568, 4, 2,95, 2, 49, 4 
78,4, 42,89, 1,28, 478, 4,2,95, 1,2, 106, 
1,2,119,1, 49,379, 4, 42,127,4,28, 379, 
4,49,0,4, 42,119, 2 

1230 DATA 28,0, 4,2, 106, 2, 49,568, 4, 4 
2,95, 2, 28, 568, 4, 2,95, 2, 49, 478, 4, 42, 
89,1,28,478,4,2,95,1,2,106, 1,2, 119, 
1,49, 379, 2, 42, 127, 2, 28, 379, 2, 49, 0,6 
,42,0,2,28,0,6 

1240 DATA 2,127,1,2,142,1,2,150, 1,2 
,142,1,49, 284, 2,42, 119,2, 28,284, 2,4 
9,239, 2, 42, 0, 2, 28, 190, 2, 49, 239, 2, 42 
,106, 1,28, 190,2,2,119, 1, 49, 239, 2, 42 
,127,1,28, 190, 2 

1250 DATA 2,119,1, 49,284, 2, 42,95, 2, 
28,284, 2, 49,239, 2, 42, 0, 2, 28, 190, 2, 4 
9,239, 2,42, 89, 1,28, 190, 2,2,95, 1,49, 
239, 2, 42, 100, 1,28, 190, 2, 2,05, 1, 49, 2 
84,2, 42,63, 1 

1260 DATA 28,284,2,2,71,1,49,230,2, 
42,75, 1,28, 190, 2,2, 71,1, 49, 284, 2, 42 
,63,1, 28, 284,2, 2,71, 1,49, 239, 2, 42,7 
5,1,28, 190, 2, 2,71, 1,49, 358, 2, 42,60, 
4,28, 358, 2 

1270 DATA 33,284, 2, 12,239, 2, 49, 284, 
2,42,71,2,28, 239, 2, 49,0, 2, 42,63, 2, 2 
8,0, 2, 49,379, 4, 42,60, 2, 28, 379, 4, 2,6 
3,2,49,426,4,42,71,2,2B, 426, 4,2, 75, 
2,49,478, 4 
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1280 DATA 42,71,2,28,478,4, 2,95, 2,4 MZ 
9,426, 4,42, 89, 2,28, 426, 4, 2, 106,2, 49 
,379, 4,42, 119, 4,28, 379, 4, 49, 379, 4, 4 
2,119,1,28,379,4,2,127,1,2,142,1,2, 
127,1, 49,568, 2 

1290 DATA 42,142, 2, 28,568, 2, 49,0,2, >IY 
42,0, 2, 28,0, 2, -2, -2, -2 

1300 DATA 49,0, 4,42, 142,2,28,0,4,2, DUJ 


| 127,2,49,568, 2, 42,113, 4,28, 568, 2, 33 


,379,2,12, 284, 2, 49, 379, 2, 42, 142, 2,2 
8,284, 2,49, 379, 2, 42, 127,2, 28, 284,2, 
49,568, 2, 42, 113,2 

1310 DATA 28,568, 2, 49, 379,2, 42,127, DHF 
2,28, 284, 2, 49,379, 2, 42, 142, 2,28, 284 
,2,49, 379, 2, 42, 150, 2, 28, 284, 2, 49, 42 
6,4,42, 169,2, 28, 426, 4,2, 150, 2, 49, 40 
2,4,42, 142,2 

1320 DATA 28,402, 4,2,127,2, 49,379,4 
,42,150,2, 28, 379,6, 2, 190, 2, 17, 379,2 
,10,142,2, 49,0, 2, 42, 127,2, 28,0, 2, 49 
,638, 2, 42,113, 4, 28, 568, 2, 33, 379, 2, 1 
2,284, 2,49, 379, 2 

1330 DATA 42,142, 2, 28, 284,2, 40, 379, DKY 
2,42,127,2,2B, 284, 2, 49,568, 2,42, 113 

,2, 28, 568, 2,49, 379, 2, 42, 127, 2, 28, 28 
4,2,49, 379, 2, 42, 142, 2, 28, 284, 2, 49,3 
79,2, 42,150, 2 

1340 DATA 28,284, 2, 49, 426,4,42,160, CU 
2,28, 426, 4,2,127,2, 49, 379, 4, 42,150, 
2,28, 402, 4,2, 190,2, 49,568, 2, 42, 142, 

2, 28,568, 2,49, 0,6, 42,0, 2,28,0,6, 2,7 
1,2, 2,63, 2 

1350 DATA 49,568, 2, 42,56, 4, 28, 568,2 DUE 
,33,379, 2, 12,284, 2, 49,379, 2, 42, 71,2 
,28, 284, 2, 49, 379, 2, 42,63, 2, 28, 284, 2 
,49,568, 2, 42,56, 2, 28,568, 2, 49, 379, 2 
,42,63, 2, 26, 284, 2 

1360 DATA 49,379, 2, 42, 71,2, 28, 284, 2 
,49, 379,2, 42, 75,2, 28, 284, 2, 49, 426, 4 
,42,84, 2, 28,426, 4,2, 75,2, 49, 402, 4,4 
2,71,2, 28, 402, 4, 2,63, 2, 49, 379, 4, 42, 
75,2, 28,379,6 

1370 DATA 2,95, 2,17, 379, 2,10,71,2,4 >FB 
9,0,2,42,63, 2, 28,0, 2, 49,568, 2, 42,56 
,4,28,568, 2, 33, 379, 2, 12, 284, 2, 49, 37 
9,2,42,71,2,28, 284, 2, 40, 379, 2, 42,63 
2,28, 284, 2 

1380 DATA 49,568, 2, 42,56, 2, 28,568, 2 )PT 
,49,379, 2, 42,63, 2, 28, 284, 2, 49, 379, 2 
,42,71, 2,28, 284, 2, 49,379, 2, 42, 75,2, 

28, 284, 2, 49,426, 4, 42,64, 2,28, 426,4, 
2,63, 2, 49,379, 4 

1390 DATA 42,75, 2, 28, 379,4, 2,95, 2,4 DUV 
9,568, 4,42, 71,2, 28,568, 4, 2,0, 2, -3, - 
3,-3 
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D ISK Xavier GROSSETETE 
Valable pour CPC 664 -6128 Rappel 


Pour obtenir X tapez CTRL+X 
" <— CTRL+H 

ne CTRL+I 

T CTRL+K 
J 


Disk est un utilitaire pour disquettes qui permet 
le formatage, la copie de disquettes, la copie de fichiers, 
et l'édition de secteurs. Il comprend 7 fichiers. DISK, DISC, CTRL+J 
SCREEN, COP2, COPIEUR, EDIT et SPEEDER. Vous devez _  aWERTY 
donc taper et sauver tous ces programmes. Ensuite il faut \ 
effectuer un RUN ''SCREEN"" pour sauver la page-écran. 
Puis un RUN''DISK"' pour lancer le tout. = 





Secteur : &CL Piste : à Page : D 













j0 : 00 Sa 43 4E 4B 53 20 29 20 40 41 55 00 O9 O9 47 : .ZIHKS BAS... 
4016 : O2 03 04 OS 06 07 08 09 3E 00 00 OÙ 00 00 DD OÙ : ,....... Pause | 
4060 : 00 53 43 5a 45 45 4E 20 20 d2 41 53 60 DD DB 09 : . SCREEN “Bis. in | 


4530 : OC 3D 00 06 00 00 09 00 00 09 09 08 98 DD DD DD : .=.,.,...,,,,., | 
4049 : Es 44 49 53 4B D D 00 00 de 41 53 09 00 DD 11 : DISK BAS... | 


= 
[sr] 
À 
Lo] 
[=] 
1 
+ 
È = 
E— 
+ 
es 
DE 
EN 
= 
1 
en 
= 
LT 
—3 
[as] 
[=] 
[as] 
[=] 
[nee] 
[eee] 
Lee] 
[ose] 
Less] 
[=] 
[>] 
[are] 
[ns 


4080 : ü nn eue 
4090 : 18 19 14 00 00 00 06 00 00 00 OÙ 00 00 AD 0 DD : 
Aon0 : QD 4 AE SD A9 A8 GS 62 29 dé AL 63 DD DD OO [3 





CU a nn nn 











DISK | 110 PAPER O:PEN 1 )LE | 230 OUT A,2:OUT B,&2E >PK 
120 A=&BC00 :B=&BD00 :H=HIMEM >WD | 240 OUT A,6:OUT B,&19 >PB 
130 OUT a,2:OUT b,50 >NJ | 250 OUT A,7:OÙT B,&1B >PN 
10 OUT (&FA7E),1 >CC | 140 OUT a,6:OUT b,34 >NR | 260 IF INP(&F500) AND 10020 THEN OÙ )QL 
20 ‘HRHHNNEENEES >LB | 150 OUT a, 7:OUT b,35 >NV | TA, 7:OUT B,L&{E 
30 ‘+: : LC | 160 OUT a,1:OUT b,0 >KQ | 270 MODE O:1K 0,0:BORDER O:FOR 1=1 >XM 
40 ‘*# Grand + LD | 170 FOR 1=1 TO 77:PRINT USING "&";" >MM | TO 15:INK 1,0:NEXT 
50 ‘'# Ecran # LE ":CHRS (164) ; "BIGHEAD SOFTWARE 1 280 GOSUB 490 )JC 
60 ?: 4 )LF | 988 ";:NEXT 290 OUT (&FA7E), 1 >LR 
70 ‘#SAVE"DISK # LG | 180 OUT A,1:OUT B,48 >NU | 300 GOSUB 570 )HE 
80 ?: 4 >LH | 190 OUT (&FA7E),1 >LQ | 310 LOAD"DISK.BIN",&C000 TK 
00 ‘"auHauutituss >LJ | 200 FOR 1=1 TO 3000:NEXT:CLS >VA | 320 GOSUB 600 >HA 
100 INK 0,13:BORDER 13:1NK 1,0:M0DE >DB | 210 INK 0,0:BORDER 0 >NY | 330 CALL £8036 )JD 
2 220 OUT A,1:OUT B,40 >NG | 340 CLS >UB 


—_—— 
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350 INK 1,1:INK 2,2:INK 3,11: INK 4, DJY 
26:1NK 5,20:INK 14,26:INK 15,11 


360 CALL &8000 >HH 
370 SYHBOL AFTER 32 >MH 
380 SYMBOL 125,460,410,43C,L66,&7E, DH) 
&60,&3C 

300 SYHBOL 123,46,48,43C, 466, &7E,&6 DFN 
0,43€ 

400 SYHBOL 93,&1E,430,438,46C,438,& >GR 
30, &F0 

410 SYHBOL 64,460,410, 478, LC, &7C,&C DFP 
C,&7C 


420 SYHBOL 92,0,0,43C, 466, &60,43E,& FU 
8,L18 

430 SYHBOL 93,0,430, 48, 466, 466,466, DGY 
&66,&3E 

440 SYHBOL 94,418, 424 >PV 
450 SYMBOL 47,191,191,191,191,191,1 DL 
91,191, 191 

460 SYMBOL 92, 253, 253, 253, 253, 253,2 LN 


53,253,253 

470 GOSUB 630 >HK 
480 RUN"DISC >HA 
490 OUT (&FA7E), 1 >LU 
500 FOR 1=1 TO 899:NEXT >RH 
510 OUT (&FB7F),4 LR 
520 OUT (&FB7F),2-PEEK(&A700) )WA 
530 DK=INP(&FB7F) HT 
540 OUT (&FA7E),0 >LN 
550 IF (DK AND 32)=0 THEN CALL O  DWY 
560 RETURN 2G 


570 B=1:a$="2100C0EDSF 77237CB720F80 
E0A2100C01100401ABE2813477E3006C632 
30041804C6323803B83801787713237CB72 
0E30DC20D80C80000002100C01 100400100 
40EDBOC9" 

580 FOR A=&8000 TO &8000+67:POKE A, >AF 
VAL ("EM +HIDS (AS, A-WB000+12B, 2) ) :B=B 
+1:NEXT 

580 RETURN >2K 
600 ENT 1,2,-1,1,2,1,1:ENV 1,3,30,4 >UC 
ENV 2,4,7,4:ENV 3,15,15,5:FO0R 1=95 

6 TO 239 STEP-20:SOUND 1,1,7,13,1,1 
:SOUND 2,1/2,7,13,1,1:SOUND 4,1/4,7 


V 


HE 


AE 

610 NEXT >EC 
620 RETURN »2D 
630 SYMBOL 239,0,0,0,0,0,255 WK 


640 SYHBOL 240, 40,40, &1F,420, 420,42 JL 
7, 428,428 

650 SYKBOL 241, 40,40, &FF, 40, 80, &0,& DE 
0,40 

660 SYMBOL 242, 40,40, LFB, LA, L4, LEA, >GC 
&14,&14 








670 SYHBOL 243,428, 428, 127,420, 420, DIT 
&AF, 40, 40 

680 SYMBOL 244,414,414, LEA, L4,&4,&F GG 
8, &0,&O 

690 SYHBOL 245,428, 428, L28, 428,428, LJ 
428,428, &28 

700 SYHBOL 246,414,414,&14,k14,414, DLH 
L14,414,&14 

710 SYHBOL 247,40, 40,40, &FF, 40, 40,4 >DH 


0,40 

720 RETURN ZE 
AO PHNNENNEHNNNEE >LA 
20 '# 4 >LB 
30 ': DISK # LC 
40 *# (c)BIGHEAD # >LD 
50 '# SOFTWARE # )LE 
60 '# 1989 4 >LF 
70 '# * >LG 
80 "#SAVE"DISC É] >LH 
90 'HHHEHHANEEANNEE )LJ 
100 ON BREAK GOSUB 2930 >QP 
110 DIM B$(3,100) )AJ 
120 INK 0,26:BORDER 13:1NK 1,26 )1Z 
130 PAPER O:PEN 1 >LG 
140 DIH a$(23) >FD 


150 MODE 2:0RIGIN 0,0,320,640,0,400 HJ 
:CLG 1:0RIGIN 0,0,0,640, 0,400 


160 RESTORE )HB 
170 ON BREAK GOSUB 2930 ) 
180 GOSUB 530 KG 


190 effa-0:reno-0:cata=0:depr=0:rec >JL 
u=0 


200 WINDOW 1,80,1,25:pot=Y% >VP 
210 GOSUB 700 >GK 
220 GRAPHICS PAPER 0 >PT 
230 1%=1 >UB 
240 ynart=yXtntti )LA 
250 yaint=yt+1 WF 
260 cmax=nx+i )TF 
270 14=1 UF 
280 LOCATE X2+1,Y4+1 >NZ 
290 JA=Y4+1 >0H 
300 PAPER 1! TE 
310 PEN 0 >ZG 
320 PRINT A$(1%) )EA 
330 PAPER O:PEN { )LJ 
340 Cx=1 >TH 
350 A$=INKEYS >PB 


360 1F A$=CHR$(240) OR A$="T" AND J DZY 
Dynint-1 THEN GOSUB 450 
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370 1F A$-CHR#(241) OR A$="]" AND J >ZB 
SCYmax%+i THEN GOSUB 490 

380 IF A$="X" OR A$=" " OR a$=CHR$( >ZQ 
13) THEN catA=0:E=0:R=0:rE=0:D=0:G0 

TO 1470 

390 GOTO 350 >2G 
400 LOCATE X%+1,J%:PRINT A$CIS):RET >GA 
URN 


410 PAPER 1:PEN 0 LH 
420 LOCATE X%+1,JX:PRINT A$CI%) DC 
430 PAPER O:PEN 1 >LK 
440 RETURN »2D 
450 GOSUB 400 >HC 


460 IF 1%-1=0 THEN cÂ=c21:iX=caaxt: )GA 
1X=ysaxt:GOSUB 410:RETURN 

470 IF LEFTS(AS(IX-1),1)=CHR$(247) DFG 
THEN JX=J%-2:C4=C4-1: 1X=1%-2:GOSUB 
410:RETURN 

480 cÂ=Ci-1:14=14-1:J4=J4-1:GOSUB 4 >HZ 
10:RETURN 

490 GOSUB 400 KG 
500 IF 1X=caax% THEN ct=1:i2=1:j%=y >CH 
sint:GOSUB 410:RETURN 

510 IF LEFTS(ASCIX+1),1)=CHR$(247) FT 
THEN ct=Citi:J%-J%+2:14=1%+2:GOSUB 
410:RETURN 

520 ct=Ch+1:14-14+1:J%-J%+1:GOSUB 4 >MH 
10:RETURN 


530 READ n%,x%,y% >LH 
540 A$(1)="Annulation" >VH 
550 maxi=LEN(AS(1)) NE 
560 c2%=1 >AA 
570 FOR 1%=2 TO n4+1 >HB 
580 READ a$(1%) >RA 


590 IF a$(14)C>"" THEN c2%=c24+1 )1A 
600 IF LEN(A$(IK))>maxi% THEN maxix >PH 
=LEN(a$ (1%)) 


610 NEXT I% >UD 
620 FOR 1%=1 TO n4+1 >Mu 
630 IF a$(1%)="" THEN a$(1%)=STRING NM 
$(naxit,247) 


640 IF LENC(A$(I%))COHAXIS THEN PYX=L >W4 
ENCAS$(1%))+1:FOR JX=PX TO HAXIX:A$( 
IX)=ASCIL)+" M:NEXT J% 

650 NEXT >EG 
660 DATA 11,3,3 QD 
670 DATA Copie disc,Forsatage,Edite >ZJ 
ur, Speeder, ,Copier fichier,Effacer, 
Renosser ,Cataloguer,Déprotéger, Récu 


pérer 

680 RETURN >2K 
690 IF 1%=1 THEN GOTO 350 >RH 
700 o%=1 >UK 


710 LOCATE X%,po%:PRINT CHRS#(240)+5 >KP 


TRINGS(HAX1%,241)+CHR$ (242) 

720 FOR pX=yt+i TO ytnxti >TA 
730 LOCATE x%,PX:PRINT CHR$(245)ta$ >RB 
(o%)+CHR$ (246) 

740 o%=0%+1 >QC 
750 NEXT px >VF 
760 LOCATE XX,pot+N%+2:PRINT CHR$(2 >RB 
43)+STRINGS(MAXI%,239)+CHR$ (244) 


770 GOSUB 410 )HJ 
780 INK 1,0 >NA 
790 RETURN >AB 
800 STOP )FA 
810 PHHARANENNEEEX >BK 
820 ’# FORMATEUR # )TA 
830 'arsttstatuttt TB 


840 MEMORY &8E20:a$="21678e3a638e32 )>YA 
308e3a448e0609360023360023773c23360 
22310f 23a638e5 71e000e4121678edf648e 
3a638ef e27c83c32638e21678e06091 1040 
0771910fc18da0052c607":FOR 1=1 TO { 

39 STEP 2:POKE &8E21+(i-1)/2,VAL("& 
"+MIDS CAS, i,2)):NEXT 

850 D=0:F=39 )BF 
860 WINDOW 35,52, 15, 18:PAPER O:CLS: >VH 
PRINT:PRINT" Piste Départ:";d; 

870 PRINT" Piste Arriv.: 39"; )K 
880 WINDOW 1,80,1,25 >NV 
890 PLOT 3448,112,1:DRAU 34#8,175: YU 
DRAW 5538,175:DRAN 55#8,112:DRAU 34 
8,112 

900 WINDOW 1,80,1,25 >NH 
910 PAPER 1:PEN O:LOCATE 36,16:PRIN >ER 
T'Piste Départ:";d; 

920 PAPER O:PEN 1:LOCATE 36,17:PRIN >DF 
T'Piste Arriv.is"its 

930 a$=INKEYS$:1F a$="" THEN 930 >1G 

940 IF (a$=CHR$(241) OR a$=" ") THE >CB 
N 990 

950 IF (a$=CHR#(242) OR a$=" ") AND >MP 
d>0 THEN d=d-1 

960 IF (a$=CHR$(243) OR a9=" ") AND >ND 
d(f THEN d=d#{ 

970 PAPER 1:PEN O:LOCATE 49,16:PRIN >GW 

T d; 

980 GOTO 930 >AF 

990 PAPER O:PEN 1:LOCATE 36,16:PRIN )EA 

T'Piste Départ:";d; 

1000 PAPER 1:PEN O:LOCATE 36,17:PRI )EU 

NT'Piste Arriv.:";f; 

1010 a$=INKEYS:1F a$="" THEN 1010  >YX 
1020 IF (a$=CHR$(240) OR a$="}") TH >DN 

EN 910 

1030 IF (a$=CHRS(241) OR a$="|") TH DEC 

EN 1080 








1040 IF (a$=CHR$(242) OR a$="e") AN NY 


D f>d THEN f=f-1 

1050 IF (a$=CHR$(243) OR er) AN DPE 
D f(42 THEN f=f#1 

1060 PAPER 1:PEN O:LOCATE 49,17:PRI >HW 
NT f; 

1070 GOTO 1010 >LH 
1080 WINDOW 35,52,15,1B:PAPER O:CLS >DK 
:PEN 1:WINDOW 1,80,1,25: 

1090 PLOT 3448,112,1:DRAW 3448,175 >ZF 
:DRAU 5548,175:DRAU 55#8,112:DRAN 3 
448,112 

1100 LOCATE 41,16:PRINT"Format":LOC >RP 
ATE 38,17:PRINT"(D)ata (C)ps' 

1110 AS$=INKEYS:1F a$="" THEN 1110  >YZ 
1120 IF a$="D" OR a$="d" THEN D=1:G >GU 
0TO 1160 

1130 IF (a$=CHR$(240) OR at") TH DDV 
EN 860 

1140 IF a$="C" OR a$="c" THEN C=1:G GT 
OTO 1160 

1150 GOTO 1110 LH 
1160 WINDOW 35,56,15,18:PAPER O:CLS >DN 
:PEN 1:WINDOW 1,80,1,25: 

1170 PLOT 3448,112,1:DRAN 34#8,175 >WA 
:DRAU 600,175:DRAN 600,112:DRAW 343 
8,112 

1180 LOCATE 36,16:PRINT" Insérez la >CA 
disquette":LOCATE 36,17:PRINT" 

à forsatter." 

1190 WHILE INKEY$C"":WEND:WHILE IN >TE 
KEY$="": VEND 

1200 GOSUB 1300 >WK 
1210 WINDOW 1,40,1,25:PAPER O:CLS:W >LA 
INDOW 41,65,15,18:PAPER 1:CLS 

1220 WINDOW 1,80, 1,25 PI 
1230 PAPER O:PEN 1:LOCATE 3,5:PRINT >QV 
*Forsatage pistes":d:"A";f 

1240 IF D=1 THEN POKE &BE44,8C1:CAL >RB 
L &6E21:G0T0 150 

1250 IF C=1 THEN POKE &BE44,841:CAL >RK 
L &BE21:G0T0 150 

1260 PAPER 1:PEN 0 )LF 
1270 PAPER 1:PEN O:WINDOW 41,80,1,2 >NZ 
S:PAPER 1:CLS:WINDOW 41,80,5,25 

1280 PRINT"ATTENTION: la loi 85 >PJ 
-600, titre V,article 47 du 3 jui 
llet 1985, n'autoriseq'une copie de 
sauvegarde réservée à votre usa 

ge personnel." 

1290 FOR T#=1 TO 2000:NEIT:RETURN  >BJ 


1300 OUT i&FA7E),1 )LD 
1310 FOR la=1 TO 999:NEXT >TY 
1320 OUT (&FB7F),4 )LL 
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1330 OUT (&FB7F),2-PEEK(&A700) )1Z 
1340 DK=INP(&FB7F) >HN 
1350 OUT (&FA7E),0 LH 
1360 IF (DK AND 32)=0 THEN PAPER 0: >TG 
PEN 1:LOCATE 1,25:PRINT"Lecteur de 
disquette vide...":G0T0 160 

1370 1F dir=1 THEN dir=0:RETURN AC 
1380 IF (DK AND 64) THEN PAPER 0:PE )BY 
N 1:LOCATE 1,25:PRINT"Disquette pro 
tégée...":G0TO 160 

1390 RETURN >FG 
1400 PAPER 1:PEN O:LOCATE 50,23:PRI >PZ 
NT"Inserez la disquette” 

1410 LOCATE 50,24:PRINT"& Appuyez 3 >HM 
ur une touche...."; 


1420 WHILE INKEY$(>"®":WEND )WN 
1430 WHILE INKEY$="":WEND UD 
1440 PAPER 1:PEN O:LOCATE 50,23:PRI )2J 
NT" Li 
1450 LOCATE 50,24:PRINT" >BN 
LP 
L 
1460 RETURN FE 


1470 ON cx GOTO 1480,1540,1550,1560 >NF 
,1570,1580, 1590, 1600, 1610, 1620, 1630 


1480 FOR Y=25 TO 1 STEP -2 >RG 
1490 WINDOW 1,80,y,y:PAPER O:CLS  >AZ 
1500 NEXT >KH 
1510 FOR Y=24 TO 2 STEP -2 >RA 
1520 WINDOW 1,80,y,y:PAPER O:CLS  )AT 
1530 NEXT:CALL 0 >LD 


1540 GOSUB 1260:cH=1:0N ERROR GOTO IH 

3080:WINDOW 1,1,1,1:PEN O:RUN"COPIE 

UR 

1550 GOTO 810 >FF 
1560 ch=2:0N ERROR GOTO 3080:WINDOW >DY 
1,1,1,1:PEN O:RUN"EDIT 

1570 ch=3:0N ERROR GOTO 3080:WINDOW >HG 
1,1,1,1:PEN O:RUN"SPEEDER 

1580 ch=4:GOSUB 1260:0N ERROR GOTO DUC 
3080:WINDON 1,1,1,1:PEN O:RUN"cop2 


1590 effa=1:G0T0 1980 >PN 
1600 reno=1:G0T0 1980 > 
1610 cata=1:G0T0 1980 >PN 
1620 depr=1:G0T0 1980 )QA 


1630 recu=1:POKE &A701,229:G0T0 198 >DC 
0 


1640 "procedure depro >YD 
1650 MODE 2:CALL &BCO2 >PL 
1660 dir=1:G0SUB 1300 >PT 
1670 CALL &BB4E WG 
1680 PEN 1:PAPER 0 >MF 


1690 PRINT"Ne vous fiez pas au(x) m >] 
essage(s) d'erreur(s)...." 


1700 HEMORY &OFFF >Q 
1710 RESTORE 1750 >LX 
1720 FOR io=LA000 TO &A023:READ a$: )CW 
POKE 10, VAL("&"+A$) :NEXT 

1730 NS=b#c, i) >UA 
1740 FOR i=1 TO LEN(NS):POKE &A023+ >VC 
i,ASCCMIDS (NS, i, 1)):NEXT:POKE BAOO! 
,LEN(NS) :CALL &AO0O 

1750 DATA 06,08, 21, 24,a0,11,2f,a0,c >QA 
d,77,be, d0,c5, 21, 70,01, cd, 83, be, ci, 
09,eb, 21,66,ae, 06, 04, 73, 23, 72, 23, 10 


fa, c3, 7a,bc 

1760 cop=c >RA 
1770 C=0 )VE 
1780 A$="" )CJ 


1790 LOCATE x,y:PRINT" "BE 
1800 a$=INKEYS:1F A$="" THEN 1800 >ZD 


1810 IF ASC(a$)=32 AND c(1 THEN 180 >AB 
0 

1820 IF A$=CHR$#(127) AND c>0 THEN G >VD 
OSUB 1940:G0T0 1800 

1830 IF a$=CHR$(127) THEN 1800 NL 
1840 IF A$=CHR$(13) THEN GOTO 1900 >ZN 


1850 IF C=12 THEN GOTO 1800 JUE 
1860 LOCATE xtc,y:PRINT a$: >UH 
1870 C=C+1 )JF 
1880 IF C=8 THEN c=C+1 >PQ 
1890 GOTO 1800 NE 


1900 FOR 1o=x TO X+11:LOCATE lo,y:b >DE 
4=B9+COPYCHRS (#0) :NEXT 
1910 IF LEFT$(b$,1)=" " OR LEFTS(B$ >Q7 


,1)=%-" THEN 1800 

1920 dir=0:GOSUB 1300:0REN, "O:"+b$, )TR 
*0:"+b4 (cop, 1) 

1930 GOTO 160 >FF 
1940 C=c-1 >JF 
1950 1F C=8 THEN C=C-1 >PQ 
1960 LOCATE x+c,y:PRINT"-" >WN 
1970 RETURN >GA 
1980 xx=10 >JD 
1990 ERASE b$:DIM b4(3, 100) >UB 


2000 WINDOW 1%,x2+62,2,24:PAPER 0:C >YC 
LS:WINDO# 1,80,1,25 
2010 LOCATE x%,2:PRINT CHR#(240)+ST DJ 


RING$(62,241)+CHR$(242) 
2020 LOCATE x%+1,3:PRINT'X tic >TX 
hiers CATALOGUE 
x" 
2030 FOR Yx-3 TO 24 >LH 


2040 LOCATE x%,y%:PRINT CHRS$(245)  >BB 
2050 LOCATE 1%+63,yX:PRINT CHRS(246 >DH 
) 

2060 NEXT )K 
2070 LOCATE x%,25:PRINT CHR$(243)+S >EQ 








TRING$ (62, 239) +CHR$ (244) 
2080 LOCATE 1,1 NH 
2090 dir=1:G0SUB 1300 >PQ 


2100 POKE LBBSA,&C9:CALL &BC9B, 4400 UV 
O:POKE &BBSA, &CF 


2110 nb4=0:T0t4-0 )LT 
2120 n1%=0 >GA 
2130 WINDOW 1%+2,80,5,25 >RU 
2140 C=1 >UH 
2150 Q%=1 DAJ 


2160 FOR i=k4000 TO &4800 STEP 14 IG 
2170 IF PEEK(1)€>255 THEN 2290 »vQ 
2180 FOR nx=1 TO 8 )LE 
2190 b$(c,q%)=b$(c,q%)+CHRS(PEEK(1+ FE 
Nx)) 


2200 NEIT XKF 
2210 b$(c,Q%)=b$(c,Q%)+"." >RT 
2220 FOR Ex=0 TO 2 >GD 


2230 b$(:,0%)=b$(c,Q%)+CHRS(PEEK(1+ >QX 
NX+E%) AND 127) 

2240 NEXT >KK 
2250 PRINT b$(c,Q%) ;USING * #8 ko"; >AU 
PEEK(1+12) :Q%=Q%+1 

2260 N1S=N1%+1:1F ni%=20 THEN C=2:W >TU 
INDOW 33,80,5,25 

2270 1F ni%=40 THEN c=3:WINDOW 53,8 >GR 


0,5,25 

2280 nb#%=nb4+1:TO0tx=TOt%+PEEK(i+12) >DU 
2290 NEXT:WINDOW 1,80,1,25 VI 
2300 LOCATE 12,3:PRINT"X" ;nb% >IP 


2310 LOCATE 60,3:PRINT totx:" KoX" >BG 
2320 LOCATE 12,5:1F COPYCHR$(#0)=" )ED 
" THEN LOCATE 30,10:PRINT" XPas de 
catalogue. X":G0T0 160 

2330 IF Cata=1 THEN WHILE INKEY$="" TE 
:WEND:G0T0 160 


2340 X=1%+2:Y=5 )CE 
2350 1=1 WG 
2360 C=1 VB 
2370 GOSUB 2490 AK 
2380 A$=INKEYS$ >tH 
2390 1F (A$=" * OR A$="Z") AND effa >RL 
=i THEN GOSUB 2840 


2400 IF (A$=CHR$(13) OR A$="1") AND >VD 
recu={ THEN üREN,"0:"+B$(c,i),b$(c 

»1) :üUSER,0:G0T0 160 

2410 IF (A$=CHR#(13) OR A$="1") AND DIE 
effa=1 THEN GOTO 2860 

2420 IF (A$=CHR$(13) OR A$="X") AND >1Q 
reno=1 THEN GOTO 1760 

2430 IF (A$=CHRS(13) OR A$="1") AND >ID 
depr=i THEN GOTO 1640 

2440 IF (A$-CHRS(240) OR A9$="T") AN DAD 
D Y>5 THEN GOSUB 2510:1=1-1:Y=Y-1:G 





27 





OSUB 2490 

2450 IF (A$=CHRS (241) OR A$="|"} AN DUY 
D Y<24 THEN GOTO 2770 

2460 IF (A$=CHR$(243) OR A$=";") AN >TQ 
D C€3 THEN GOTO 2620 

2470 IF (A$=CHR#(242) OR A$=%") AN TN 
D C>1 THEN GOTO 2520 


2480 GOTO 2380 DRE 
2490 LOCATE 1, Y:PRINT'X"4LEFTS(b#(c MC 
,D,1229X* 

2500 RETURN >FA 
2510 PAPER O:PEN 1:LOCATE X,Y:PRINT DH) 
LEFTS$(b$(c, 1), 12) :RETURN 

2520 IF C=3 THEN LOCATE 33,y JW 
2530 IF C=2 THEN LOCATE 12,y VR 


2540 IF COPYCHRS(#0)=" " THEN GOTO )EV 
2380 


2550 GOSUB 2510 )1C 
2560 C=C-1 HE 
2570 IF C=2 THEN 1=i-20 >0Q 
2580 IF C=1 THEN 1=i-20 »0Q 


2590 1F C=2 THEN 1=33:G0SUB 2490  >YY 
2600 IF C=1 THEN 1=12:G0SUB 2490  >YK 


2610 GOTO 2380 >K 
2620 IF C=1 THEN LOCATE 33,y JU 
2630 IF C=2 THEN LOCATE 53,y NY 


2640 IF COPYCHR$(#0)=" * THEN GOTO >EW 
2380 


2650 GOSUB 2510 > 
2660 C=C+1 )JD 
2670 IF C=2 THEN 1=1+20 >@P 
2680 IF C=3 THEN 1=i+20 )QR 


2690 IF C=2 THEN X=33:GO0SUB 2490  >YZ 
2700 IF C=3 THEN 1=53:G0SUB 2490  >YU 


2710 GOTO 2380 >NA 
2720 ? )YD 
2730 )YE 
2740 ? YF 
2750 ? >YG 
2760 ? )YH 
2770 LOCATE 1,Y+1 )LF 
2780 IF COPYCHR$(#0)=" * THEN GOTO )EB 
2380 

2780 GOSUB 2510 De 
2800 Y=Y+1 >ND 
2810 1=1+1 XKC 
2820 GOSUB 2490 )IK 
2830 GOTO 2380 >ND 


2840 IF effa=i AND LEN(b#(c,1))=12 >DG 
THEN LOCATE x-1,y:PRINT®)®b#(c, D)" 
“:bt(c, 1)=b8(c, 1)+"C":GOSUB 2490:RE 
TURN 

2850 IF effa=1 AND LEN(bé(c,1))=13 >PQ 
THEN LOCATE x-1,y:b#(c, 1)=LEFT#(b#( 


c,1),12):PRINT " "B$(c, 1)" ":GOSUB 
2490 :RETURN 


2860 WINDOW 1,40,1,24:PAPER O:CLS DAC 
2870 dir=0:G0SUB 1300 >PU 
2880 FOR C=1 TO 3 >CC 
2890 FOR 1=1 TD nbx >H 


2900 IF LEN(b$(c, 1))=13 THEN b#(c, 1 >JC 
)=LEFT$(b$(c, 1),12):PRINT b$(c, 1)" 


est effacé.":üERA,b$(c,1) 


2910 NEXT >LD 
2920 NEXT )LE 
2930 WINDOW 1,80,1,25 >PG 
2940 GOTO 160 >FH 


2950 PAPER O:PEN 1:WINDOW 1,80, 1,25 
2960 LOCATE 30,10:PRINT CHR$(240)ST 
RING$(14,241)CHR$ (242) 

2970 LOCATE 30,11:PRINT CHR$(245)" 

Insérez DISK "CHR$(246) 

2980 LOCATE 30,12:PRINT CHR$(243)ST 
RING$(14,239)CHR$ (244) 

2990 WHILE INKEY$="":VEND 

3000 WINDOW 30, 40,10,12:PAPER O:CLS 
:WINDOW 41,70, 10, 12:PAPER 1:CLS:PAP 
ER 0 


)CE 
)CV 


GB 


>CH 


>VH 
>ZZ 


3010 WINDOW 1,1,1,1:PEN 0 >TP 
3020 ON ERROR GOTO 3080 >Qc 
3030 IF ch=1 THEN RUN"COPIEUR >1G 
3040 IF ch=2 THEN RUN"EDIT >UG 
3050 IF ch=3 THEN RUN"SPKEDER )IV 
3060 IF ch=4 THEN RUN"COP2 >UR 
3070 STOP )LJ 
3080 IF DERR=146 THEN RESUME 2950  >AW 
3090 RESUME 160 >AD 
3100 GOTO 160 >EG 
10 ? HUE )LA 
20: 4 >LB 
30 * # IMAGE DE # LC 
40 ? #PRESENTATION* >LD 
50 ! # # LE 
60 ? #SAVE"SCREEN # >LF 
70 " #+ RUN 0 LG 
80 ? HRIANNNENNEEUN >LH 
90 INK 14,25 >VH 
100 MODE O:1INK 0,0:BORDER 0 >UU 


110 INK 1,1:INK 2,11:INK 3,2: INK 4, >LN 


26: INK 5,20 


120 1=0:Y=0:K=50 )LE 
130 A=0.516:B=0.98333:C=0. 45363 )YC 
140 T=TIME VS 





150 FOR ix=1 TO 642 >LA 
160 Z=Y-SGN(X)#SQRCABS(B#X+4C) ) >ZZ 
170 Y=A-1:X=2 NE 


| 180 PLOT Kaæ1+320,250-(K#Y),INT(RND >GZ 
| 45)+1 

190 NEXT >EF 
| 200 FOR 1%=-1 TO 100:PLOT INT(RND#64 >TK 
0), INTCRND#400), INT (RND#5) +1:NEXT 

210 PEN 15:1INK 14,26: INK 15,11 NE 
220 LOCATE 1,1:PRINT CHR$(164)"BIGH >UY 
EAD SOFTWARE" 

230 FOR 1-0 TO 17432 STEP 4 TB 
240 FOR Y=4 TO 18 STEP 2 0 
250 IF TEST(X,380+Y)=15 THEN PLOT 4 >PQ 
0+1,Y22,15:DRAN 4541, (Y#2)+5:DRAN 4 
5+1,(Y#2.1)+5,14 


260 NEXT Y,X >GH 
270 LOCATE 1,1:PRINT "DISK"+STRINGS >LD 
(16,32) 

280 FOR X=0 TO 4432 STEP 4 >RG 
290 FOR Y=0 TO 18 STEP 2 >QR 


300 IF TEST(X,380+Y)=15 THEN PLOT 2 >TW 


50+1,350+Y22, 14 

310 NEXT:NEXT BB 
320 LOCATE 1,1:PRINT"  * >U 
330 SAVE"DISK",B,&C000, k4000 >#D 


DURE CEE ELEETEE >LA 
1201: 3 >LB 
30 * * COPIEUR # >LC 
40" *# FICHIER # >LD 
50 ? # 4 )LE 
60 ? #SAVE"COP2 # >LF 
70 * HHSBNNIINNHET >LG 
80 BORDER 0: INK 0,0 »Q 
90 CLEAR >DH 
100 FOR 1=42165 TO 42619:READ A%:PO >PH 
KE 1,A%:NEXT 

110 CALL 42165 KA 


120 DATA &c3,457,4a5,800,400,kâe,&4 >WX 
t,L4d, 420, L44,455,&20, &46, k49, &43, & 
48,449, 445,452, 420, 45, ke, k20, LAS, 
ke, &54,452,L45, 45,420, &3f , 820 

130 DATA &âe,kâf ,&äd,420,&44,455,&2 >HD 
0,446, 449,443, &4B, 449, L45, 452,820, k 

45, be, 420,853, k4t,U52, 454, 49, LAS, 
&20,&3f,&20 

140 DATA &41,455,854,852,445,420,&4 >ZU 
6,449,443, LAB, h49, LAS, 52,420, 428, & 

af, &2f ,kâe, 429,420, L3f , 20 
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150 DATA 400,400, 400, 400,400, 800,840 >HY 
0,400, 400,400, 400, &00, 400, &00, &00, & 
00,400, 400, 400, 400, &00, &00, &00, &O0, 
400,400, 400, 400, 400, 400, &00, 400, &00 
400 

160 DATA 400,400, #00, 400, &00, 400, &0 
0,400, 400, 400, 400, &00, &00, &00, &00, & 
00,400, 400, 400, &00, 400, &00, &00, 400, 
400, #00, &00 

170 DATA 800,400, 400, 400,400, &00, &0 
0,400, &00, &00, 400, &00, &00, LO0, &00, & 
00, 400,400, &00, &00 

180 DATA ke, 4&02, &cd, ke, bc, &3e, &0 ) 
0,406, 400, ke, 400, kod, k32, &bc, k3e, & 
01,406,412, 448, kcd, &32, kbc 

190 DATA &cd, 54, &bb, &od, 472, &a6, 421 
, kba, La4, Lcd, L4B, La6, LOG, &11, 436, &0 
0,423,410,&fb,8421, 406, &a5, LOE, &00, & 
3a,&b8, ka 

200 DATA &cd, 455, ka6,821,416,4a5,k7 
1,441,821,406, LaS, k11,872, &01, kcd, & 
77, &bc, kda, ka2, ka5, &od, L46, ka6, kc3, 
470,&a5 

210 DATA 832,428, ka5, bed, 453,429, ka 
5, Led, &43, k2d, ka5, L11,42f, ka5,&O1,& 
18,400, 409,401,2428, 400, ked, Lb0, 422, 
429, ka5, kod, &83, &bc 

220 DATA 822, &2b,ka5, &od,&7a, &bc, &c 
d,472, La6,421,&d5, kaë, kcd, k4B, ka6, & 
11,417, &a5,401,411, 400, ked, &bO, 421, 
&17,ka5, 0e, &00 

230 DATA &3a, &b9, &a4, &cd,&55, ka6, &7 
8,&te, L00, koa, keb, ka5,421,427,ba5,& 
71,421,427, La5,k46,821,417,ka5,k11, 
472,801, &od, &Bc, &bc 

240 DATA &da, 40! , &a6, &cd, 446, &a6, ke 
3,kc5, ka5, &01, 418, &00, 409, keb, &21,& 
21 ,ta5, 401,428, 400, Led, LbO, Led, Lab, 
&2b,&a5, k2a,429,&a5 

250 DATA Led, &5b, &2d, ka5, &3a, 428, ka 
5, kob, 487, kod, 498, &be, kcd, &Bf , &bc, & 
cd, 472, ka6,&21,kf0,ka4, 406,416, k7e, 
&od, &5a, &bb, 423 

260 DATA &10,4t9,&cd, 406, &bb, kcd,&5 
a,&bb,&f6,8420, fe, k6f , koa, k70, ka5, & 
te,&6e, kc2,424, La6,&c7,437,4c9, k06, 
&ib,&7e,kcd, &5a, &bb 

270 DATA &23,k10,8f9, 421,406, kaS, &c 
9, te, &00, ca, LSf , La6, LOG, &Oc, kc3, & 
61,4a6,406,410, kcd, 406, &bb, bte, k0d, 
&ca,&71,&a6, &Oc 

280 DATA &cd, &Sa, &bb,477,423,&10,kf >DC 
0,kc9, kod, 78, &bb, 426, &01, &2c, kod, & 

75, &bb, kc9 


>TR 





10 ? HARRNNERNHHE >LA 
20° # L >LB 
30 *#  COPIEUR # )LC | 
40 ? # DISQUETTE # LD 
50 ! # # )LE 
60 ? #SAVE"COPIEUR* >LF 
FORM TITI TITI >LG 
80 CLEAR >DG 
90 CALL &BB4E >HA 
100 FOR T=42000 TO 42057 )QV 
110 READ a$:POKE t, VAL("&"+A$) >IP 
120 NEXT )DJ 
130 ON BREAK GOSUB 630 > 
140 ON ERROR GOTO 630 >PK 


150 WINDOW 1,40,1,25:PAPER O:CLS:WI DT 
NDOW 1,80,1,25:PAPER 1:PEN O:LOCATE 
45,15:PRINT'Format (S)ystese (D)at 

a ?" 

160 F$=INKEYS:1F F$="" THEN 160 IG 
170 F$=UPPER$(F$) >LV 
180 IF F$="S* THEN f-65:GO0T0 210 >YF 
190 1F F$="D" THEN f=193:G0T0 210 )YE 
200 GOTO 160 >YF 
210 PAPER O:PEN 1:LOCATE 45,15:PRIN >ZG 
T STRING# (25,143) ;: 

220 PAPER 1:PEN O:LOCATE 45,15:PRIN >ZH 
T'Introduisez la disquette source": 
LOCATE 45,16:PRINT'"et appuyez sur u 

ne touche..." 

230 VHILE INKEY$="": VEND JUY 
240 WINDOW 45,80,15,16:PAPER 1:CLS: >LK 
WINDOW 1,680,1,25:PAPER O:PEN { 


250 GOSUB 640 KG 
260 TAMP=4488:CPT=0 >PU 
270 LOCATE 2,6 >0B 
280 FOR PT-0 TO 39 >LP 
290 FOR SC=0 TO 8 >FG 


300 IF CPT=0 THEN 320 
310 IF CPT MOD 72=0 THEN GOSUB 390 ZT 
320 TAMP=TAMP+512:CPT=CPT+1 DU 


330 LOCATE 2,4:PRINT'Lecture... >GA | 


340 LOCATE 2,6+sc:PRINT'Piste "pt". >XZ 
..Secteur"sc 

350 CALL 42000, pt,sctf, tanp UN | 
360 NEXT sc > YF 


370 FOR Y2=15 TO 6 STEP -1:LOCATE 2 DFA 

,YL:PRINT SPACES (25) :NEXT 

380 NEXT pt )AB 
. 390 PAPER 1:PEN O:LOCATE 45,15:PRIN DLY 

T'Introduisez la disquette destinat 








ion":LOCATE 45,16:PRINT'"et appuyez 

sur une touche..." 

400 WHILE INKEY$="":VEND JUX 
410 WINDOW 45,80,15,16:PAPER 1:CLS: >LJ 
WINDOW 1,80,1,25:PAPER O:PEN 1 


420 GOSUB 640 HF 
430 TAHP=4488 >PB 
440 FOR PTI=PT-8 TO PT-1 >RC 
450 FOR SC1=0 TO 8 )LT 
460 TAMP=TANP+512 fc 


470 LOCATE 2,4:PRINT"Ecriture..." )EQ 
480 LOCATE 2,6+sci:PRINT'Piste "pti DAY 
"...Secteur"sci 

490 CALL 42005,pt1,sci+f, tamp )U 
500 NEXT sci EC 
510 FOR YX=15 TO 6 STEP -1:LOCATE 2 DFE 
»YS:PRINT SPACES (25) :NEXT 

520 NEXT pti )FJ 
530 tasp-4488 )PC 
540 IF cpt=360 THEN LOCATE 2,17:PRI DAJ 
NT*Operations Terminees...":WHILE 1 
NKEYS$O"":NEND:WHILE INKEY$="" : VEND 
:GO0T0 130 

550 PAPER 1:PEN O:LOCATE 45,15:PRIN >ZP 
T'Introduisez la disquette source": 
LOCATE 45,16:PRINT"et appuyez sur u 

ne touche..." 

560 WHILE INKEY$="":YEND JUE 
570 WINDOW 45,80,15,16:PAPER 1:CLS: >LR 
WINDOW 1,80,1,25:PAPER O:PEN 1 

580 GOSUB 640 )JC 
590 RETURN >2K 
600 DATA 3E,66,C3, 17, A4,3E, 4E, 32,3F >KJ 
A4, DD,6E, 00, DD,66,01,DD, 4E,02 

610 DATA ED, 43,48, A4,DD,56,04,1E,00 >KP 
+ ED, 53, 46, À4,0E,07,CD,0F,B9,C5 

620 DATA ED, 4B,48,A4, ED, 5B, 46, A4,CD >PP 
66,06, C1, CD, 18, B9, C9, 00, 00, 00, 00 


630 CALL 0 >GH 
640 OUT (&FA7E),1 >LQ 
650 FOR 1=1 TO 999:NEXT >RU 
660 OUT (&FB7F),4 )LY | 
670 OUT (&FB7F),2-PEEK(&A700) XG 
680 DK=INP(&FB7F) 2 
690 OUT (&FA7E),0 LV 


700 IF (DK AND 32)=0 THEN PAPER O:P >YJ 
EN 1:LOCATE 1,10:PRINT"Lecteur de d 
isquette vide...":WHILE INKEY$C)"": 
WEND:WHILE INKEY$="":VEND:GOTO 150 

710 IF (DK AND 64) THEN PAPER O:PEN >CV 
1:LOCATE 1,10:PRINT"Disquette prot 
egee...":WHILE INKEY$C"":VEND:WHIL 

E INKEY$="":WEND:GO0TO 150 

720 RETURN >2E 
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10 ? HHHHNNEENNEENX LA 
20 ‘ # # x 
30 * s#HINI-EDITEUR# LC 
40: * )LD 
50 * *SAVE"EDIT x LE 
60 ? HHHHNNEINNEEEE >LF 
70 CLEAR >DF 
80 DIM a$(15,3) )NB 
90 ON BREAK GOSUB 620 >PB 
100 HODE 2:1INK 0,26:INK 1,0:BORDER MG 
13:1ig=100 


110 FOR i=49000 TO 49073 STEP B WF 
120 FOR J=0 TO 7:READ z$ QU 
130 Z=VAL("&"+z$):c=C+z:POKE 1+J,z DCR 
140 NEXT:READ c$:1F cCVAL("&"+C$) >QF 
THEN PRINT'Erreur ligne ";lig 

150 C=0:1ig=lig+10:NEXT:CALL &9000 CZ 
160 DATA 01,28,90,21,24,90,cd,d1,32 >BD 
c 

170 DATA bc,21,3f,90,cd, d4,bc,22,42 >CH 
b 

180 DATA 40,90, 79,32,42,90,21,43,2b >BK 
i 

190 DATA 90,cd,d4,bc, 22, 44,90, 79,45 DCE 
c 

200 DATA 32,46,90,c9,00,00,00,00, id >BW 
{ 

210 DATA 30,90, c3,47,90, c3,5d,90,40 >BJ 
a 

220 DATA 4c,4f,41,44,53,45,c3,53,2c >BG 
e 

230 DATA 41,56,45,53,45,c3,00,84,2b >BT 
b 

240 DATA 00,00,00,85,00,00,00,fe,18 >BU 
3 

250 DATA 03,28,05,3e,07,c3,5a,bb,24 >CF 
d 

260 DATA eb,dd,56,04, dd, 4e,02,1e,36 >CU 
d 

270 DATA 00,df,40,90,c9,fe,03,28,3a >CN 
1 

280 DATA 05,3e,07,c3,5a,bb,eb,dd,3e >CX 
a 

290 DATA 56,04, dd,4e,02,1e,00,df,28 >CQ 
4 

300 DATA 44,90, c9,00,00,00,00,00,19 >BY 
d 

310 MEMORY &3FFF:p=0:5=4C1 >VP 
320 üLOADSEC, p, s,&4000:C=1 >vZz 
330 HODE 2:GO0SUB 600:LOCATE 1,2 WW 
340 PLOT 1,90,1:DRAN 1,360:DRAW 630 >DF 
:360:DRAU 630,90:DRAU 1,90:PLOT 5,8 


8:DRAW 632,88:DRAN 632,358 

350 PLOT 100,365:DRAU 100,390:DRAW NC 
540,390:DRA4 540,365:DRAY 100,365 

360 PRINT:PRINT >HY 
370 ON BREAK GOSUB 620 >0Q 
380 FOR i=44000+D TO &40FF+D STEP 1 >AW 
6 

300 PRINT" ";HEX$(1,4)5;" : "; )IF 
400 FOR j=0 TO 15:PRINT HEXS(PEEK(I >VY 
+J),2);" "::NEXT 


410 PRINT" : ";:FOR j=0 TO 15:z=P >KH 
EEK(1+J) 

420 IF z<32 THEN PRINT"."; ELSE PRI >NW 
NT CHR$(z); 

430 NEXT:PRINT:NEXT > 
äaû GÜTU /aû >2F 
450 AS$=INKEYS$:a$=UPPERS (A$) Jui 


460 IF a$=" * THEN d=ABS(d-256):G0T >FT 
0 330 


470 ON BREAK GOSUB 620 > 
480 LOCATE 10,25 >EB 
490 IF a$="S" THEN INPUT"Secteur : )MQ 


&",s$:S=VAL("&"+S$) :GOSUB 600 
500 IF a$="P" THEN INPUT‘Piste : ", >NR 
p:IF p>43 THEN 480 ELSE GOSUB 600 

510 IF a$="W*" THEN üLOADSEC,p,s5,&50 >YL 
00:ss=s:sp=p:w=1 :üSAVESEC, p, 5, &4000 

520 IF a$="L" THEN üLOADSEC,p,s3,440 DNK 
00:G0T0 330 

530 IF a$="E" THEN END )PY 
540 IF a$="U" AND W=1 THEN üSAVESEC >VG 
SP, 55, k5000 : u=0 

550 1F a$<>"V" THEN 450 

560 LOCATE 10,25: INPUT"Adresse : 
,a$:A=VAL("&"+A$):1F a=0 THEN 560 
570 LOCATE 10,25:PRINT SPACES(50); >BB 
580 LOCATE 10,25:INPUT" Valeur : &*, >JQ 
v$:V=VAL("&"+V8) :POKE a,v 

590 GOTO 330 26 
600 PAPER O:PEN 1:WINDOW 1,80,1,25 BR 
610 LOCATE 20,2:PRINT"Secteur : &"; >HA 
HEX$(s,2);" Piste : ";p;" Page 

5 "3-1#(D=256) :LOCATE 1,25:PRINT SP 
ACES$ (70) ; :RETURN 

620 RUN'disc AE 
630 GOSUB 1140: INPUT"Piste:",p:1F p >ZE 
>43 THEN 1270:G0T0 740 ELSE GOSUB 6 
00:GO0SUB 1270:G0T0 740 

640 GOSUB 1140: INPUT"Secteur:&",s3$: >HV 
S=VAL("&®+5$):GOSUB 600:G0SUB 1270: 
GOTO 740 

650 GOSUB 1140: INPUT"Adresse:&",a$ >HL 
:A=VAL("&"+A$):IF a=0 THEN 650 
660 , 


>PQ 
&" RG 


)TC 





670 INPUT"Valeur:4",v$:V=VAL("&"+V$ DRT 
):POKE a,v 

680 GOTO 330 26 
690 IF W=1 THEN üSAVESEC, sp, s3,&500 >JF 
0:w=0:G0T0 330 ELSE GOTO 740 


700 üLOADSEC, p,s,4k4000:G0T0 330 >ZE 
710 üLOADSEC, p,s,&5000:ss=s:sp=p:#= >QY 
1:üSAVESEC, p,s,k4000:G0T0 330 

720 C=2:G0T0 740 >FG 
730 d=ABS(d-256) :GOTO 330 TZ 
740 ? )TB 
750 ! TC 
760 WINDOW 1,80,21,25 >PK 
770 IF C=2 THEN RESTORE 1100:1e=80 >BC 
780 IF C=1 THEN RESTORE 1120:le=80 BE 
790 no=2 >ZK 


800 fb$=CHR#(241) :fh$=CHR$ (240) :0k$ 
=" *:ret$=CHR$(13) 

810 nor$=CHR$(15)+CHR$(0)+CHR$(14)+ 
CHR$(1) 

820 inv$=CHR$(15)+CHR$(1)+CHR$(14)+ 
CHR$ (0) 


)IA 


)JA 


)JZ 


830 do$=CHR$(7) :soh$=CHR$ (1) )B 
840 ! TC 
850 READ n >LB 
860 FOR i=0 TO n )K 
870 READ s$il) > 
880 cc$=cc$+LEFT$(H$(1),1) UE 
890 It=HAX(LEN(H#(1)),1t) JU 
900 NEXT i )NH 
910 ag=(LE-1t)/2:ad=agtit NE 
820 ch=1 IG 
930 PAPER O:PEN 1 >LQ 
840 FOR i=0 TO n NY] 


950 LOCATE ng-1,121+1:PRINT "/X":M$ >VF 
(D); TAB(Hd) ; "Xc": 
960 NEXT FA 
870 LOCATE ag,ch#{+1:PRINT inv$:m$( >YU 
CH) ; TAB (MD) ; nor$; 
880 r$=INKEYS:1F r$="" THEN 980 )IE 


890 LOCATE ag,ch#1+1:PRINT n$(CH):T >LB 
AB(MD) ; 

1000 IF (R$=fb$ OR R$="|") THEN cH- 
(CH+1) MOD (N+1):GOTO 970 

1010 IF (R$=fh$ OR Rs="Ÿ") THEN cH )AB 
=(CHtn) MOD (N+1):G0T0 970 

1020 IF (r$=ret$ OR r$=" " OR r$="X »KA 
*) THEN 1050 

1030 X=INSTR(CCS,UPPER$(R#)):1F x=0 >MJ 
| THEN 970 

| 1040 cH:=1-1 VA 
! 1050 IF (ch=0 AND c=i) THEN 740 NT 
1060 IF (ch=0 AND c=2) THEN C:1:G0T )EH 


)2T 





0 740 
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1070 PAPER O:PEN 1 LE 
1080 1F C=1 THEN ON ch GOTO 700,710 >HJ 
» 720, 730 
1090 1F C=2 THEN ON ch GOTO 630,640 >HY 
650,690 


1100 DATA 4 >HK 
1110 DATA Annulation,Piste, Secteur, >DB 
Modification, Undo 

1120 DATA 4 >NB 


1130 DATA Annulation, Charger, Ecrire >KM 
Hodifier,Page suivante 


1140 WINDOW 1,80, 1,25 >PY 
1150 T-33:t1=10 >ZA 
1160 FOR X4=1 TO {5 >LH 
1170 FOR yx=1 TO 3 )LJ 
1180 LOCATE xx+t,yxtti: >RH 
1190 a$(1%,Y%)=COPYCHRS (40) VE 
1200 IF x%=15 AND y%=1 THEN LOCATE DHK 
1tt,1+ti:PRINT CHR$(150)STRINGS (13, 
154)CHR$ (156) ; 

1210 IF x%=15 AND y%=2 THEN LOCATE )LJ 
1+t,2+t1:PRINT CHR$(149)STRING# (13, 
32)CHR$ (149) ; 

1220 IF x%=15 AND y%=3 THEN LOCATE HV 
1#t,3+t1:PRINT CHRS(147)STRINGS (13, 
154) CHR$ (153) ; 

1230 NEIT )KH 
1240 NEXT KJ 
1250 WINDOW t+2,T+15-1,t1+2,t142  >ZY 
1260 RETURN >FC 
1270 WINDOW 1,80,1,25:T=33:t1=10  >ZH 
1280 FOR X4=1 TO 15 LL 
1290 FOR yx=1 TO 3 >LA 
1300 LOCATE xxtt,yX+ti:PRINT A$Cx%, >GP 
y); 

1310 NEXT:NEXT:RETURN >TH 
[TIRE CITE TENTTEEE >LA 
20 '# L] )LB 
30 ‘'aVitesse:+30%: >LC 
40 '# * )LD 
50 ’#SAVE"SPEEDER: LE 
60 'HNHENNNEENNNEE >LF 


70 FOR 1=41000 TO &1012:READ a:POKE >LN 
x,a:NEXT 

80 CALL &1000:CALL &BBBA:CALL &BCO2 >YP 
:HODE 1:PEN 1:PAPER 0 

90 LOCATE 1,1:PRINT"Speeder :+30%":P >RT 
RINT:NEV 

100 DATA 33,10,16,223,7,16,201,13,1 >CN 

98,7,35,0,200,0,1,1,10,0,3 


l'est difficile de taper un programme 

d'une revue sans commettre d'er- 
reurs | Quand les erreurs sont signalées 
(Syntax error in..., Lines does not exist 
in...), la correction est facile puisque 
la ligne est indiquée, mais lorsqu'au 
"point de vue” du CPC, le programme 
est correct, il peut en être tout autre- 
ment pour le lecteur. 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossible 
de retrouver l'erreur commise, à moins 
de comparer les lignes de votre pro- 
gramme avec celles du journal, mais 
c'est très long et on risque de passer 
sur Une erreur sans la voir. 
C'est pourquoi ce programme a été 
créé : Il est à utiliser si vous ne retrouvez 
pas vos erreurs. 
La frappe d'un programme de votre 
joumal favori (CPC) terminée, vous fal- 
tes "RUN" et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous 
référant au journal pour comparer. Si 
malgré cela, il ne tourne toujours pas, 
suivez cette procédure : 
- Sauvez votre programme en ASCII 
grâce à l'instruction : Save ‘nom prog”, 
A 


Puis, si vous êtes sur K7, rembobinez 
la bande jusqu'au début du fichier : 
- chargez Anti-Erreurs ; 


N: SUR MINITEL 
Code MHZ 















UTILITAIRE 


ANT! 
ERREURS 


Grégory NOE 


Valable pour CPC 464, 
CPC 664, CPC 6128 





- entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 


Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX : c'est le code qui va vous permet- 
tre de savoir d'où proviennent les er- 
reurs. Pour cela. il faut que vous com- 
pariez les codes du journal à ceux de 
l'écran. Si un code diffère, notez sur 
papier le numéro de ligne qui corres- 
pond à ce code. Continuez ainsi jus- 
qu'à la fin du listage. Le défilement 
terminé, recherchez votre programme 
et corrigez les lignes que vous avez 
notées en comparant avec le journal. 
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Faites "RUN' et, 6 miracle !, ça marche. 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère car Anti-Erreurs les prend 
en compte et bien sûr, ne tapez pas 
les codes de contrôle. 


LUE LES EE EE EI LE ETES ETES EEE CET ENDIRN 


201 t LB 
30" # ANTI - ERREURS  # LC 
471 t LD 
50" VERSION 2.0 # LE 
604 & OLF 
LOMMEL TEL CE PTET COETETETET CPL CT CENTS 
80 nr 
90 ? (c) CPC & G. NOE 1987 DJ 
100 ? >RB 
110 DRC 


120 ? >222222>>>DDDDDDPDDDDIDDDDDD RD 


130 "< INITIALISATION >) DRE 
140 ? CELCECCCCCECECEECECLECEECEC DRE 
150 ? >RG 
160 ON ERROR GOTO 1250 >0D 
170 MODE 2 >HH 
180 DIM G$(23) >GD 
190 FOR 1-0 TO 22:READ G$:G$(1)=G$: >FR 


NEXT 

200 "ATTENTION LA LIGNE DE DATA CI- 
DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET !!! 

210 DATA A,B,C,D,E,F,G,H,J,K,L,H,N, 


>RC 


>AD 


P,QR,T,U,V,H,X,Y,Z 

220 * ANTI-BUG FICHIER RE 
230 IF PEEK(HIMEN+1)=255 THEN 280  >ZD 
240 OPENOUT "CPC" >HA 
250 MEHORY HIMEM-2 >NX 
260 CLOSEOUT )RJ 
270 POKE HIMEM+1,255 >PP 
280 DEFINT B-Z >H 
290 ' >TB 


300 BORDER 6:1INK 0,1:INK 1,16:PEN 1 
:PAPER 0 

310 HOVE 0,16:DRAU 650, 16 >TK 
320 PRINT TAB(27) "ANTI-ERR >GU 
EURS  ";CHR$(24);"Version 2.0" 

3 CHR$ (24) 

330 MOVE 0,385:DRAN 650, 385 >UJ 
340 LOCATE 24,25:PRINT"CPC REVUE DE DEV 


JJN 


S STANDARDS AMSTRAD" 

350 WINDOW 1,80,3,23 NL 
360 M$="Realise par Gregory NOE" )HJ 
370 F$="" )IA 
380 FOR 1=1 TO LEN(H$) >PU 
390 F$=F$+MIDS$ (M$, 1,1) >PL 
400 LOCATE 70-1,5:PRINT F$ JUL 
410 FOR T=1 TO 100 >LQ 
420 NEXT T,! >EF 
430 RH 


CUIR ETES SES EEE EST TEE SITES TEST) 
LEL EL 


450 ? >RK 
460 LOCATE 2,1:PRINT"ENTREZ LE NOM DIT 
DU FICHIER : "; 

470 INPUT "®,NF$ >FD 


480 IF NF$="" THEN PRINT CHR$(7):G0 >GR 
TO 460 

490 LOCATE 2,3:PRINT"IMPRIMANTE OÙ >VR 
ECRAN (1/E)?" 

500 R$="":NNILE R$="":RS$=UPPERS (INK >NK 
EY$) :WEND 

510 IF R$="1" THEN CA=B:PRINT"BRANC >ID 








HEZ-LA..." ELSE 540 


520 PRINT#8,CHR$(27);"!";CHR$(20)  >AR 
530 GOTO 560 >2F 
540 IF R$="E" THEN CA=0:G0T0 560  >YQ 
550 GOTO 500 >ZB 


560 CLS:LOCATE 2,3:PRINT"TANT QUE L >QR 
E LISTAGE N'EST PAS TERMINE" 

570 LOCATE 2,5:PRINT"NE PAS ARRETER >J4 
LE MAGNETOPHONE OU NE" 

580 LOCATE 2,7:PRINT"PAS SORTIR LA >TL 
DISQUETTE" 

590 LOCATE 2,10:PRINT"PRESSEZ UNE T >HH 
OUCHE POUR LA LECTURE" 


600 CALL &BBO5 >LH 
610 ? >RH 
620 ? CLLCCLALELLLELLLCLLLEEE >RJ 
630 ?< TRAITEMENT DU FICHIER ) >RK 
64D ? >222>>222222222DDDDDDDD >TA 
650 ’ >TB 
660 OPENIN "!"+NF$ >LF 
670 CLS:PRINT"TRAITEMENT EN COURS.. DJR 
" 
680 IF LENCAS)=255 THEN A$="":LINE YU 
INPUT#9,B$:GOTO 1160 
690 LINE INPUT#9,B$:A$-B$ JUE 
700 IF CAC>8 THEN GOSUB 1310 VF 
710 IF INKEY(66)-0 THEN STOP UN 
720 ? >RK 
730 ’ CALCUL DE LA CLE DE CONTRO )TA 
LE 
740 ? )TB 
750 A=0:FLG=0 >HB 
760 FOR 1=1 TO LEN(A$) >PH 
770 L$=MIDS(A$, 1,1) >HU 
780 IF L+-CHR$(34) AND FLG=1 THEN F )PC 
LG=0:G0TO 840 
790 IF L$=CHR$(34) AND FLG-0 THEN F >PD 
LG=1:G0TO 840 
800 IF L#=CHR$(32) AND FLGC>1 THEN DCX 


850 
810 IF L$=CHR$(39) AND FLG=0 THEN 8 
60 


>CA 


820 IF FLG=1 THEN 840 >ND 
830 L$=UPPER$(L$) >HC 
840 A=A+ASC(L#)+1 >LU 
850 NEXT 1 >PB 
860 TE 
870 CH$=STR$ (A) >CC 
880 CH$=RIGHT$(CH$, LENCCH$)-1) )TC 
890 L=LEN(CHS$) :L2=LEN(CH$)/2 )1A 
900 A=VAL(LEFT$(CH$, L2) ) )TY 
910 C=INT(A/23) >AH 
920 P=A-(C#23) )LJ 
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930 C$=G$(P) )1C 
940 A=VALC(RIGHTS(CH$,L-L2) ) >H 
950 C=INT(A/23) :P=A-(C#23) DUT 
: 960 C$=C$+G$(P) >TD 
970 ? TG 
980 FOR 1=1 TO 6 MK 
990 L$=HID$(A$, 1,1) >HY 
1000 IF L$<(*0" OR L$)>"9" THEN 1030 )LJ 
1010 LI$=L1$+L$ )XF 
1020 NEXT KE 
1030 VH$="":FOR 1:1 TO LEN(A$):IF À )EK 
SC(MIDS(A$,1,1))<32 THEN VH$=VN$+" 
" ELSE VH$=VH$+MIDS(A$,1,1) 
1040 NEXT 1:B$=VH$ )HW 
1050 ? LU 
1060 IF CACB THEN 1070 ELSE 1090 )YT 
1070 PRINT LI$;TAB(10) ">";C$ Dr 
1080 LI$="":GO0T0 1160 >ND 
1090 L1$="":PRINTÉCA, LEFT$(B$,55) ;T >QH 
AB(57) ")":C$ 
1100 IF LEN(B$)(55 THEN 1160 DUT 
1110 FG=1 CG 
1120 B$=M1D$(B$,56, LEN(B$) ) >UB 
1130 PRINT#CA,LEFT#(B$,55) DL] 
1140 1F FG=1 AND CAO@8 THEN FG=0:G0 >VB 
SUB 1310:G0T0 1150 
1150 GOTO 1100 >LG 





1160 IF EOF=-1 THEN CLOSEIN ELSE GO »HD 

TO 680 

1170 IF CA=0 THEN CALL &BBO3:PRINT DRJ 

TAB(50) CHR$(24); "UNE TOUCHE..." ;CH 
R$(24):CALL &BBOS5 

1180 CLS:PRINT"HAINTENANT RECHARGEZ, >JC 
";NF$;" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES.." 


1190 END )YK 
1200 ? DIF 
1210 " CCCCCCECCCCCCCECCCLECCLEC D IG 
1220 *< TRAITEMENTS DES ERREURS > 1H 

1 1230 " CCCCCCLCCCLCCLLCCCCCCCLEE D LI 
1240 ? >AK 
1250 IF ERR=25 THEN CLS:PRINT CHR$( >YC 
7);CHR$ (24); "FICHIER NON ASCII" ;CHR 
$(24):END ELSE CONT 

| 1260 ? >YB 
1270 " CCCCCCECCCLCCCLCCCLCCCELE DEC 
1280 *C  ATTENTE TOUCHE... > > 
1290 ? CCCCCCCCCCECCCECCCCCCCCEC TE 
1300 ’ )1G 
1310 COM=CON+1:1F CON)19 THEN CALL  >AF 
&BBO3:PRINT TAB(50) "UNE TOUCHE..." 
:CALL &BBOS:CLS:COH=1 
1320 RETURN >EK 


EDITIONS SORACOM 
Re ee à 














Afin de satisfaire plus directement ses lecteurs, SORACOM ouvre son propre service de vente par correspondance. 


COMPILATIONS CPC 


Vous recherchez les anciens numéros de CPC 2 

Vous souhaitez connaître le mode d'emploi de cer- 
tains logiciels du téléchargement ? 

Alors voici les compilations des numéros 1 à 4 et 


5 à 8 de CPC. 
COMPIL 
















& PU VE. 
“> . 


COMPIL 
5à8 


BON DE COMPILATION 
COMMANDE GET g 
PAGE 38 
PAAAPAAPY 


80F 80F 





HAMSTERS EN FOLIE | GENERATION 5 | 


DT D ee à 


A PARTIR DE 10 ANS : 

Hamsters en Folie est une simulation économique et 
humoristique qui vous entraîne dans les mystères dela ! } 
gestion d'un élevage de hamsters. 

A vous d'accoupler vos animaux, de vendre des 
hamsters, d'acheter de la nourriture, des cages, des 
magasins, de payer vos loyers et de faire face à toutes 
les dépenses. 

Deux niveaux de difficulté. 

Sauvegarde possible du jeu en cours. 


LES 





MORT 


Disponible sur disquette 3" pour CPC 464, 664 et 
6128 au prix de : 225 F. 
Réf. : G5 007 CPC 





deze] 





POUR FAIRE RIMER 





| EDUCATION ET RECREATION, 








MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 


MULTICOURS à 


Français : amélioration de la vitesse de lecture et de la compréhension du 
texte autour d'exercices variés et amusants. 

Sciences naturelles : une initiation à la démarche scientifique et aux lois 
biologiques du monde vivant abordée avec des mots simples. 

Géographie : découverte de la variété des milieux naturels et initiation à 
l'interprétation de cartes, graphiques et autres données climatiques. 

Jeu : un jeu divertissant à découvrir. 


Réf. : GU 557064 





MULTICOURS 35 | le 


| 


Français : test de performance de 
lecture suivie, qualité de compréhen- 
sion, appréciation du sens et du style 
grâce à une pédagogie active. 
Sciences naturelles : uneinitiation 
à la biologie humaine apprenant à 
observer et à interpréter les compor- ss) 
tements de notre corps. 

Géographie : analyse de cartes et interprétation de diverses données statis- 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 


économique industrielle. 


Jeu : 1 jeu divertissant à découvrir. 


Réf. : GU 557124 








MULTICOURS “& | 


Français : maîtrise de la lecture avec | 

le support d'untextericheetune va- | 

riété d'exercices de compréhension | 

d'analyse et de logique. | 

Sciences naturelles : découverte | 

de la Terre et de son histoire à tra- | | 
vers les grands phénomènes géolo- "= a 
giques abordés grâce à des textes de connaissance, des animations. 
Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 


alliances : le mode d'emploi pour 1992. 
Ré: :GU557104 EX 
| MULTICOURS 5 


Français : perfectionnement de la 
… lecture regroupant lecture et recher- 
che, anticipation mais aussi interpré- 
tation. 
Sciences naturelles : initiation à la 
biologie animale et végétale à travers 
== l'alimentation, le système de respira- 
tion, le mode de reproduction ou de locomotion. 
Géographie : Voyage sur 2 continents proposant une découverte du quoti- 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique, 


Réf. : GU 557084 


a 





Jeu : 1 jeu divertissant à découvrir. 





Jeu : 1 jeu divertissant à découvrir. 





DES IDEES DE CADEAUX POUR N @EL !! 


Offfrez-lui la possibilité de protéger son ordinateur 
et de ranger ses disquettes 
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? © 
pour Réuss: l'en français et en mathématiques 


8 disquettes bien remplies : 2000 questions — 50 exercices 


pour trouver tout seul 


5+ essai page 1 


Complète par ce où se 


ce chat 
ce vent 


marchand 
rendre 
reposer 
repos 
presser 
nourrir 
fautiler 


Le mt qui auñ sets un vote ? 
‘08 nan 8 où # 





ORTHOGRAPHE CE 


-VouF 

— OÙ, OUP, oU6, Out 
— EUX, EU, AU, AU 
- n, an,m 
—i,is, y ile À 


— OU, OÙ -c,ç 

— pluriel noms — accord des adjectifs 

— accord du verbe  — féminin en e 

—iils, elles — éminin des noms 

— présent — noms en ie, erle 

— an, en, ant, am — présent avoir, être — pluriel des noms en al 
— 6, 6, à, ei — pres, faire, voir — pluriel des noms en ou 
—c, que, ck,S,SS,C passé composé  — out, lous, tout 
-m,n —&, fa ; ON, 10 — leur, leurs 

-S,SS — BU, EUX, eut, eue  — impératif 

- à, à — on, om, ont, ond  — impératif avoir, être 
— on, ont — 6, 66, er — impartait 

— son, sont —À,ille - Lur être, avoir 

— qu.) g — les possessifs 

—F, FF, ph — Ce6, 588 

— ion, oin — cet, cette 




















ORTHOGRAPHE CM 








-Souss — ce, cel, cette, ces — partic. passé avec 
— OÙ - OÙ — 6 ou er être 
—gougu-couqu —leur ou leurs — parti. passé avec 
— avoir au présent  — sait, sais, c'est avoir 

- à OÙ à — peu, peux, peut - si, d, sy 

— on ou ont — près, prêt, pré — tout, lous, touts 

— Son ou sont — accord du verbe — passé s. 1er, 289. 
— tre au présent — Sans, s'en, Sens — passé s. 30 gr. 

— Rminin des noms — mais, mes, met — condifon. présent 
— CBS OÙ 366 — participe passé en i  — condit. p. verbe en 
— présent de l'indic.  —partic. passé adjectif ler 

— C6 OÙ se — quel, qu'elle — condit. p. verbe en 
— la, là, l'a, l'as — Impératif présent eye 


— imparfait de l'indic. — part. passé être-avoir 
— quand ou qu'en 
— tant, l'en, temps 











| 6128 
réf. 14402 CPC 


ORTHOGRAPHE 6°-5° 


— 4 ou À : on ou ont 

— ©S OÙ ses 

— présent de l'ndicatf 

— verbes en @ler ou eter 
— plunel en eaux ou aux 
— Peu, peux, peut 

— Imparait de l'indicatif 

— verbes en or, ger, quer 
— son ou sont 

— près, prêt, pré 

— @, œtis, ont 

— passé composé 

— l'a, la l'es, là 

— OUX, OUS 

— s'est, c'est, sas 

— sdvertes 

— passé sample de l'ndicatif 
— les préixes 

—œ,% 


— EUX OU, eus 
— a000"d du verbe 

— Utur de l'indicatt 

— tous, tout, butes 

— format du part pas. 
— m'a#ma ; m'ontimon 
— condition. présent 
— même 

— mes, mes, m'est 

— leur, leurs 

— impératif présent 
—éouer ;itoui 

— plutôt ou plus tôt 

— les nombres 

— mbjonctt pésent 
yen 


ou sy :n ou ny 
— Quel ou qu'elles 

— #voir et être 

— dans, d'en, dent 
— forme passe 

— sans, ren, sent 
— futur améneur 

— nom ou verbe 

— Quand ou qu'en 

— Pertcpe passé 


- Elaborés par une équipe d'enseignants et d'informaticiens. 

- Testés dans de nombreuses écoles de Loire-Atlantique (lire CPC n° 
35 - Juin 1988). 

— L'expérience montre qu'après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette 

1) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode fait appel au raisonnement plus qu'à la 
mémoire 

2) L'ordinateur chronomètre le temps de réponse. Si ce temps est 
supérieur au temps normal l'ordinateur l'avertit que s'il ne répond pas 
plus vite il continuera à faire des fautes dans ses dictées. 

3) Les résultats sont enregistrés pour encourager l'élève. Il peut voir 
que plus il travaille, plus le nombre de règles acquises augmente. 


ORTHOGRAPHE 4°-3° 


— passé antérieur 
— &al & et 

— impératif prés. 
—6/eè 

— impératif prés. 

— pronoms relaits 
—.…oir eur 8tc. 

— V. en cer-ger 

— Homer les av. 
— P. présentad). v. 
— accord tout mème 
— voie passive 

— queks)/qu'elle 
— cond. présent 


- imparfait, indic. 
-on-onn 

— imparfait indic. 

— à0001d p. passé 
— prés. v. irrégul. 

— 866/c08/c'-8'e8t 
— passé simple ind. 
— ad. de couleur 

— imp. OÙ pass. 8. 
— verbe OÙ p. passé 
—imparf./pass. 8. 

— accord nu-demi 
- Lur anbrieur 

— quelque quoique 
— passé antérieur 
— accord p. passé 


— acoofd p. passé 
— cond. présent 

— terminaison mots 
— cond. passé 

— plur. noms comp. 
— cond. passé 

— teminaison mots 
— verbe asseoir 

— accord p. passé 
— Sub. présent 

— mots en lé té 
— sub}. imparfait 

— masc. ou féminin 
— v. particuliers 
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VOCABULAIRE CM 



























—homonymes — pendu — placer des mots 
- contraires — pendu — placer des mots 
— synonymes — placer des mots — homonymes 
— sens prop.figuré  — placer des mots —homonymes 
— préfixes — placer des mots — synonym 66 
- suffixes — contraires - contraires 
- kmilles — synonymes —radne des mots 
— suffixes — contraires — sens 6x pressions 
— verbes/noms — placer des mots — dérivés 
-adectits — placer des mots — placer des mots 
— adverbes — placer des mots — fadne des mots 
— noms de métiers  — placer des mots — adverbes 
— adjectiswerbes  — placer des mots — contraires 
— Paronymes — placer des mots — synonymes 
— placer des mots  - ” , 
— placer des mots L " 

Ê 6128 

réf, 14404 CPC 


CONJUGAISON 


— emps des verbes 
— présent v. en er 

— présent v. avoir 

— présent v. être 

— témson présent 
— emplo iis-etes 
— Utur v.en er 

— tu v.avor 

— tu v. être 

— révision futur 

— passé © v. en er 
— passé © v. vor 
— passé © v. être 
— vision passé c. 
— siler (3 mpe) 

— tare (3 emps) 

— prendre (3 temps) 


— révision : aller, fare 
— verbes en r 3 temps 
— voir (3 temps) 

— Impartait v.en er 

— 2000/0 P. p. ête 

— IMpartait v. en ir 

— IMmpartat divers 

— Impartat drvers 

— rémson Impart 

— impératt présent 

— Impératif présent 

— Impératif présent 

— former pertape passé 
— 4). parbouler 

— présent ind 

— fur ind. 


— impartait nd 

— passé ample er-r 
— passé ample 

— passé nmpie 

— passé composé 
— plus-que-partat 
— impératif présent 
— smbonbc présent 
— Cond. présent 

— mbjonct{ présent 
— verbes en yer ir er 
— verbes en cer ger 


pour donner le moral 


RESULTATS ORTHOGRAPHE 
nombre de regles ACQUISES 





= F2) 


SERGE 


Pourcentage d erreurs 











LES 4 OPERATIONS 


— table d'additon de 2 
— table d'additon de 3 
— table d'additon de 4 
— table d'additon de 5 
— table d'aoditon de 6 
— table d'additon de 7 
— table d'additon de 8 
— table d'aoditon de 9 
— sgdton CP niveau 
— addition CP niveau 2 
— addition CE 1 niveau 1 
— addition CE 1 niveau 2 
— agddton CE 2 niveau 
— sdoiton CE 2 niveau 2 
— s0dton CM1 niveau 1 
— addition CM1 niveau 2 


— mustrac. CE1 niveau 2 
— sustrac CE2 nveau 
— sustac CE2 mveau 2 
— sustrac CM1 niveau 
— sustac CM1 nveau 2 
— mustrac. CM2 nveau 1 
— mustrac. CM2 mveau 2 
— table de muitphic. par 2 
— table de multplic. par 3 
— table de muibplic. par 4 
— table de multplic. par 5 
- table de muibplic. par 6 
— table de muitplic par 7 
— table de muibplic. par 8 
— table de multplic. par 9 
- muitpic. CE1 niveau 1 


— mutplic CE1 nveau 2 
— muttpic CE2 niveau 1 
- mutiplic. CE2 nveau 2 
— muitpie CM1 niveau 1 
- muitpie CM1 nveau 2 
— mutple CM2 nveau 1 
— multpie. CM2 nveau 2 
— dvision CE 2 niveau 1 
— dnsion CM1 niveau 
— dvision CM1 niveau 2 
— dvision CM niveau 3 
— dvision CM2 niveau 1 
— division CM2 niveau 2 
— divrsion CM2 niveau 3 


— addition CM2 niveau 
— addition CM2 niveau 2 


— sustac CE1 niveau | 
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MATHEMATIQUES CM 


— écrre un nomb. en chi 
— nomb. préc. suwant 

— rangement nomb. ent. 
— décompostton 

— chifre des dizaines 

— somme de 3 nombres 


— rémson 1 


— som. de 4, 5, 6, 7 nomb 
— mUSTaCHON (proprétés) 
— cali mental 1 

— écnre grands nombres 


— révaion 2 


— mesures de longueur 
— muibpie. (propnétés) 
— calcul ments 2 

— multpies et Ümiseurs 


— déamaux : écr., comper. … — rangement des déci- 
— fractons maux 

— ic ments 3 — placer un nombre 1 
— encadrement des déc. — placer un nombre 2 
— mesure de temps — encsdr. des déam aux 
— écriture des enters — berrer les 26ros nut- 
— les puissanoss les 

— décompositon 1 — révison 2 

— décomposition 2 — mesures de longueur 
- rangement — Mesures de masses 
— placer un nombre — Mesures de Ca pacs 
— rés on 1 — monnæe 

—tractons ; équvslencs  -les ares 

— fractons et décimaux — volumes et capaci6s 
— mul. per 10,100, 1000 durée 

— décompositon des déc. 


— quotent et reste 
— Mesures de masse 


— rémson 3 


| 6128 
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DES LOGICIELS NIVEAU MATERNELILIE, PRIMAIRE ET SECONDAINRIE 














NIVEAU MATERNELLE 
ET PRIMAIRE 


EDUC-MATERNELLE-1. 
AUANPELENES 











Logiciel orienté sur la reconnaissance de la graphie des lettres et 
des nombres 


— Apprentissage des lettres de l'alphabet avec image associée à 
chaque lettre. - Apprentissage des nombres de | à 9 





EDUC-MATERNELLE-2. NIVEAU 
MATERNELLE CP. 
MC 18 CPC disk 200 F 


- Reconstituer des séries d'images. - Reconsiituer des 
mois. — Reconslituer des séries de nombres de 1 à 6 






L'enfant exerce son esprit d'analyse et découvre les règles qui 
régiront ses premiers DRpeariiages comme l'organisation du tra- 
vail écrit sur une page, le sens de la lecture et de l'écriture, le re- 
tour à la ligne 


MATHS-CE. NIVEAU CE1 CE2. 





Ce logiciel propose plusieurs points d'exercices de niveau cours 
élémentaire 


- Ranger des nombres en ordre croissant et décroissant - Com 
parer des nombres {supérieur inférieur] sommes produits - Comp- 
ter pas à pas {1, 2, 5, 10, 20, 40...) - Calculs sur les opéro- 
tions élémentaires [tableau de double entrée) - Compter la mon- 
noie - Lire et akicher l'heure - Déplacer une tortue [exéculer et 
retrouver] — Symétries axiales 


: MCO2CPC disK250F 





. MC 200 CPC K7200F 


Ce logiciel comprend des modules sur les calculs (opérations, 
fractions] ou la géométrie (symétries sur repère othonomé avec 
possibilité de construction de figures...) - Opérations verticales 
sur des entiers (avec retenue) - addition — soustraction — multipli 
cation - division 

-— Fractions simples : 

— sur des portes de rectangles, de camembens - fractions équi- 
valentes - numérateurs d'une fraction. 

- Colculs d'aires : 

- carré - rectangle. 
reur 

— Calculs de volume 
— Symétrie {centrale et axiale] 
— Suites proportionnelles 

-— Pourcentages 


ovec explication des formules en cos d'er 


| FRANÇAIS- -SONS. NIVEAU CP CE1 CE2. 


: MC 12 CPC disk 200F 
. MC 208 CPC K7170F. 


1 - Compléter des mois avec les sons ou syllabes qui convien- 
nent avec choix entre deux sons ressemblants 








2 - Compléter des phrases avec des mots à choisir dons des 
séries de même consonance 


3 - Sélectionner dons des phrases les mots ayant les sons indi 
qués. 

Une série de sons avec niveau de difficulté progressif peuvent 
convenir aux élèves des classes de CP pour l'option | et aux 
élèves de CE1 CE2 pour les options 2 et 3 






ORTHO-CM. NIVEAU CE2 CM1 CM2 


Ce logiciel permet d'apprendre les règles Re de l'ortho- 


graphe en complélant des phrases [19 règ 
ont...) 


les ex : à ou a, on ou 


A chaque faute, une explication est donnée à l'élève sous la 
forme d'une question de remplocement qui lui permettra de com 
prendre son erreur. À lout moment, cette règle pourra être ofi- 
chée pour explication 


FRANÇAIS-CM. NIVEAU CM1 
CM2 SIXIEME. 


MC 13 CPC disk 200 F 


MATHS-3. ALGEBRE 
POUR LA CLASSE DE 3EME. 
MCO05 CPC disk 200 F 





1 - Dictée : cette option permet à un instituteur ou à un parent de 
dicier un texte à l'élève avec correction automatique après une 
ou deux faules sur chaque lettre (au choix) et avec compiage des 
fautes 

Un fichier niveau CM1 CM? de 20 dictées est fourni avec ce lo- 
giciel mais une option de création permet de créer des dictées 
de tout niveau 

Une option lecture permet également de lire les textes de ce fi: 
chier 

2 - Paricipes passés avec ETRE et AVOIR : Cette option permet 
d'apprendre à accorder les participes passés avec les verbes 
ÊTRE et/ou AVOIR avec sujet, complément d'objet direct ou indi 
rect, masculin ou féminin, singulier ou pluriel. 

A chaque faule, une explication du corrigé sero visualisée 

Un fichier de phrases est également fourni, ainsi qu'une option 
permettant la création de ses propres fichiers d'exercices. 


3 - Conjugaison : ce module permet à l'élève d'apprendre à 
conjuguer les verbes des 3 groupes aux temps de son choix [im 
partait, futur antérieur, présent….] sous la forme de phrases à 
compléter. 

A choque faute, une explication sera visualisée et le comptage 
de points apparañra à la fin de l'exercice 


GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 


MC19CPC disk 200 F 





Cours et exercices suivant niveau 

Le Soleil - La Terre - Les points cardinaux - Les saisons — Le relief 
- Les cours d'eau et les mers en France - Les ports en France 
- Les grondes villes - Les pays frontaliers 





LECTURE: CP - NIVEAU MATERNELLE CP 
- MC 20 CPC disk 200 F . 


Logiciel permettant de familiariser les tous jeunes lecteurs à la re- 
constitution, la comoréhension et la structure d'une phrase 








NIVEAU 
SECONDAIRE 


GRAMMAIRE-65. NIVEAU GEME SENE 





Ce logiciel traite des notions de fonctions et naiure des groupes 
de mois constituant la phrase {sujet, verbe, complément.….] 

— Apprentissage avec rappel de cours adapté à chaque situation 
— Révision générale 

Les 220 Preis contenues dans ce logiciel sont réparties en 
2 niveaux et couvrent plus de 1400 questions. Au niveau |, l'uti- 
lisoteur peut commencer en CM2 


MATHS-6. ALGEBRE 
POUR LA CLASSE DE 6EME 
"" MCOSCPO disk 200 
: MC201 CPCK7170F 
— Opérations + - X / - Fractions - Calculs d'aires - Cokuls sur 


les relatifs - Pourcentages avec graphismes — Suites proportion: 
nelles avec graphisme — Symétries orthogonales 





MATHS-5. NIVEAU 5EME 
NOUVEAU PROGRAMME) 


MC 21 CPC disk 200 F 
MC 202 CPCK7170F 


Fractions - Nombres relatifs - Volumes — Echelles et vitesses - 








Angles — Symétries centrales 









CPC EST TRE 2: 1:12 
POUR LES CLASSES DE 5EME ET 4EME. 
“MC 04 CPC 200F 


- Multiples et diviseurs d'un entier - Nombres premiers — Puis- 
sonces d'un entier naiurel - Décomposition d'un entier naturel 
- P.G.C_.D. et P.P.C.M. - Calculs algébriques 

— Rotionnels {simplifications et opérations de fractions) 
tions et inéquations dans R 





- Equo- 


— Constructions de vecteurs — Calculs sur les droites — Systèmes 
linéaires 2,2 - bn du plan - Calculs sur les racines 
carrées - Notions de trigonométrie 


EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE. 
MC 06 CPC disk 200F. 

MC 205 CPCK7170F 





— Equations du second degré avec interprétation graphique — Sys- 
tème linéaires 2.2 - Systèmes linéaires à n équations p inconnues 
{n,n<8) 


MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 
CPC disk 250 F. 





— Equations du second degré avec interprétation graphique - Courbe 
Y — HX} ovec choix du repère et des unités — Intégrales par la mé- 
thode des rectangles avec interprétation graphique el exercices 
-— Suites récurrentes avec graphisme — Fonctions réciproques 


MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALES. 
‘MC 08 CPC disk 200F 

MC 207 CPCKT7170F. 


— Images por application affine - Courbes avec options [dont 
hardcopy} - Courbes superposées - Courbes définies par mor 
ceoux - Familles de courbes - Courbes planes (cinématique) 
- Courbes définies por une intégrale 





GEOMETRIE PLANE. NIVEAU 4EME 
CLR: 





MC 09 CPC disk 200 F 


Deux logiciels accompagnés d'explications détaillées : 

— Un utilitaire de dessin géométrique pour tracer points, droites, 
segments el cercles, le ie <TRACER à la règle et au com 
pas» accompagné de commentaires et de tous les résullats de 
géométrie analytique. Une figure peut être sauvegardée où impri 
mée. 

Huit exemples classiques de constructions géométriques accom 
pagnent cet utilitaire (bissectrices, langentes.…. 

— Une étude par le dessin des TRANSFORMATIONS GEOME- 
TRIQUES [tronslations, homothétie, rotation, symétrie axiale et cen- 
trole, similitude) sur des figures simples (carré, triangle, losange... 


ESPACES ET SOLIDES. NIVEAU PREMIERE 
ARLES 





 MC10 CPC disk200F 





Dessin géométrique dans l'espace : Utilitaire de dessin pour tro- 
cer points, droites, segments et plans accompagnés de commen- 
loires éventuels avec possibilité de sauvegarde et d'impression. 
Lo partie importonte est la perspective choisie - La perspective 
«fil de fer» qui permet de refaire le tracé sous des angles diffé 
rents — La perspective avec les plans colorés qui donne une meilleure 
visualisation. 

Une représentation de SOLIDES dans l'espace avec : Entrée du 
solide de voire choix — Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides (solides 
de PLATON, étoile de KLEPER...) 


EAN 
“MC 14 CPC disk 200 F 








Ce logiciel comprend une partie Questionnaire à choix multiples 
et une portie Liste de vocabulaire 

QCM. 

Pemet de tester ses connaissances 

— 3 fichiers de culture générale 

— 1 fichier sur la Révolution française 

— 1 fichier sur lo langue anglaise 

VOCALIST 

Permet de tester ses connaissances sur les langues 

— 3 fichiers ANGLAIS-FRANCAIS 

Il'est possible de créer ses propres Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les langues 





Le/'7\ere/}, 





BON DE GOMMANDE “imite 
















Pour chaque article, entourez le ou les n° choisis. 
ANCIENS Nos AMSTAR & CPC 
N° 26-27 -28-29-30-31-32-33-34 
35-36-37 -38-39 
DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24-25-26 Abonné 
{une disquette réunit 2 numéros consécutifs d’Amstar & CPC) Non abonné 


ANCIENS Nos AMSTAR 














Franco 
Franco 


25 F (unité) 
26 F {unité 

















Ue/7\e1e];| 


Franco 
Franco 


110 F {unilté) 
140 F (unité) 

























Da AC 4] N°5-6-8-9-10-11 15 F (unité) Franco 
Palette 18 F (unité) Franco 
CC} 16-17-18-19-20-21 20 F {unité} Franco 

#22-23-24-25 22 F (unité) Franco 







DNS 

E DISQUETTES AMSTAR 

À N° 1 (du n° 1 au 8 inclus) - N° 2 (du n° 9 au 16 indus) 

di N° 3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 
N°10-11-13-16-18-20-23-24-25-26 
27-28-29-30-31-32-34-36-37 

ANCIENS Nos HORS-SERIE CPC 
N°4-6-8-9-10-11-12-13-14-15-16 

N°17-18-19 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17 
18 — 19 (une disquette réunit 2 numéros consécutifs de CPC) Abonné 
HS1 - HS2 - HS3 - HS4 - HSS - HS6 - HS7 - HS8 - HS9 - HS1O-HS11 
HS12-HS13 -HS14-HS15 - HS16-HS17 - HS18-HS19 Non abonné 


ABONNEMENT 6 DISQUETTES (non rétroactif) 
DISQUETTES “ARCADES”’ Téléchargement AMSTRAD CPC 


Câble pour téléchargement 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 










110 F (unité) Franco 






25 F (unité) 
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